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Preface | 


This manual is to be used with the Data Language/I 
Disk Operating System/ Virtual Storage (DL/I 
DOS/VS) Logic Manual, Volume 1, LY 12-5016, and 
program listings for DL/I DOS/VS. It contains the HIPO 
diagrams that illustrate the program logic described in 
Volume |. It is intended for use by persons involved in 
program maintenance and by system programmers who 
are altering the program design. 

DL/I DOS/VS is a data management control system 
that assists the user in creating, accessing, and maintain- 
ing large common data bases. In conjunction with the 
Customer Information Control System (CICS/VS), DL/I 


DOS/VS can be used in an online teleprocessing environ- 


ment. 

Because DL/I DOS/VS is a functional subset of the IBM 
Information Management System/Virtual Storage 
(IMS/VS), some specific IMS or OS terms are used in this 
manual. These terms are used to allow easy reference to 
the documentation of the related systems. 

This manual contains only “Section 2: Method of 
Operation” which consists of HIPO diagrams that de- 
scribe the DL/I modules. The diagrams include cross 
reference to labels in the program listings. 

Because Section 2 was formerly a part of Volume 1, 
considerable cross reference exists between other sec- 
tions of Volume | and Section 2. The figure numbering 
system has been retained for Section 2 to ensure credi- 
bility of cross references found in Volume 1. 


Note: [n this publication, the system and component 
name DOS/VS should be read as DOS/VSE unless the 
name explicitly refers to DOS/VS release 34 or an earlier 
DOS/ VS release. 


First Edition (June 1981) 
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Section 2: Method of Operation 


This section contains HIPO (Hierarchy, plus Input, Process, Output) diagrams. 


The three areas of each HIPO diagram are, from left to right, the input area, process 
area, and output area. Read the diagrams beginning with the process area. This 
describes a function that is performed. Arrows leading from the input area show 
what, if any, input is used to perform that function. Arrows leading to the output 
area show what output, if any, is produced. 


At the bottom of each HIPO diagram is an area called “extended descriptions.” This 
area contains comments not included in the process area of the diagram. For most 
items in the process area, extended description items with the same numbers give 
details that cannot be easily shown in diagram form or in the space allowed. 


Various forms of arrows represent different usage conventions. Also, items are often 
boxed in to show that they are related to the same function. Figure 2-1 shows the 
conventions used in the HIPO diagrams. 


Figure 2-2 is a visual table of contents with figure numbers. The figure numbers 
refer to the HIPO diagrams. 
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Figure 2-1. Guide to Reading Method of Operation Diagrams 
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Figure 2-2. Visual Table of Contents for DL/I DOS/VS HIPO Charts 
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Figure 2-3. Batch Initialization (Overview) 
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Figure 2-3.1. Batch Initialization Entry 
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DLZRRCOO start + X‘100’. 


DLZRRCOO |DLZRRCOO 


2. 


3. The reserved space allows loading 
of DLZBNUCO without overlaying 
critical code in this module. 








Figure 2-3.2. Batch Partition Control 
OUTPUT 
u INPUT aoa PROCESS 
Figure 2-3 
Step 2 


DOS/VS 
COMREG 


DOS/VS Core 


Image Library 







[> 1. Load directory entries of the 
DL/I facility modules. 


To 
Figure 2-3 
Step 2 





LOADTB 
2. Load DLZBNUCO into the 
partition. 


YSLOG Re 
L]cosivs cor 


image Library 
To Caller 





———P 3 Set addressibility and 
initialize the SCD and PST 


bos/vs fi 
COMREG = that are in the nucleus module, 


[__] 





DLZRRCOO 


Routine Label DLZRRC10 — Batch Partition Contro! CSECT 


Extended Description Routine 


1. The end address of phase DLZRRCO0 
is obtained from the DOS/VS 
COMREG and saved at ENDINIT. 


Write message DLZO111 if a 
required module is not found 
in the DOS/VS core image library. 


Note: DLZRRCOOvinp is the module 
identifier. Each DL/I module is 
identified with its full eight-byte 
module identifier in character 
format followed with a four-byte 
field identifying the module level. 
The level format is vrnp; where ‘v’ 
is the version, ‘r’ is the release, ‘n’ 
is an additional identification digit, 
and ‘p’ is the latest PTF number 
that has been applied. 








Extended Description 


To 
Figure 2-3 
Stap 3 


OUTPUT 


DLZDBHOO ... 
DLZDLROO ... 


DLZDSEHO ... 
OLZSTRBO ... 
DLZBNUCO |... 


x‘100° 





5746-XX 1 COPYRIGHT. ... 


(DLZBNUCO) 


DLZRACOO vrnp (See Note} 


(DLZRRCOO) 


R 


PSTSVI 
SCD 
SCDDATE 
SCDUPPER 
SCDCOMAG 


SCDERRMS 
SCDSIND 


DLZRRCOO 


Routine 


RQ 


Base 





Label 
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‘Figure 2-3.3. Parameter Scan and Validation 
: PROCESS OUTPUT 


INPUT 
Figure 2-3 
Step 3 








1, Write message DLZO151 if the first 
parameter is not DLI, ULU, UDR, ULR, 
or PLU. Also write message if PLU and 
program is not DLZURGUO or if ULR 
and is not DLZURGLO. Except 

: Hef pd in Step 4, PLU is treated as 

in alt other places. 


. Although the DB prefix resolution utility 
is a logical relationship utility, it is not 
processed with the others because it 
executes directly, not as an application 
to DL/I. 


. Write message DLZ015I if syntax error 
occurs. 


PSTPCPSB now contains the dbdname 
from the ULU, UDR, or ULR parameter 
card or the psbname from the DLI or 
PLU parameter card. Insert a utility DBD 
suffix (U) or insert a PSB suffix (P). 


No control blocks are loaded for 
DLZURPRO, DLZURGSO or DLZURGPO 
during batch initialization. These three 
utilities issue the DLZBLKLD macro 





1. Determine the parameter 
identifier. 


2. Exit if the first parameter is 
ULU and the next parameter is 
a logical relationship utility. 
Skip to Step 5. 


3. Scan parameters thru the number est 
of DB buffer subpools parameter IPSTPCPGM 
if there is one. Saas 


4, Pad the dbdname or psbname 
to eight characters. 


To 
Figure 23 
Step 4 
5. Set up utility call interface. 
To : 
Figure 2-3 
Step 4 
DiLZ ere 
Extended Description Routine 


specifying the utility PSB and the BLDB 
cal] for each data set used. The ACB 
utility builds the utility PSBs they use. 


$cD 


SCDBFPL 
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Figure 2-3.4. Application Program Control (Part 1 of 2) Figure 2-3.4. Application Program Control (Part 2 of 2) 


INPUT a PROCESS OUTPUT INPUT PROCESS OUTPUT 
Figure 2-3 
Step 4 
Does, 
———————m 6. Set linkage to program request 
handler. ed 
CELL aE 1. Perform the Load Blocks and ScD +16. 
; DL/I Facility Module Routine. : i (amp MVCOM Macro aes 








DLZPINIT 


pact tictoesrer 7. Get space for Field Level 
Descriptor Block entries. 
PSIL 7 
= 2. Determine possibility to use 
| sequential get calls or to 
define data base as direct. 





AMBX 
AC8 
ACBMACRI1 






POIR scD 


PDIRADDR SCDEXTBA 


L— —%> 3, Determine possibility to use 
sequential get calls for 
secondary indexes. 


— _—-— 8. Pass control to application or 
utility program. 


DEX a Application 
SCDAPSTR : BALAY [ Program 


DL/I Partition 











ae 4. Load Program. 
Ea LOAD Macro 

{for directory entry) 
ez LOAD Macro 


a ” 5. Process ABEND linkage 
[scosino. | if indicated. ~ 


PSTPCPGM aes 
: ATLDLS 
JL) posivs . 


Core 









SCDEXT 


SCDEABEX 
SCDEABSV 


= STIXIT AB Macro a 
em STIXIT PC Macro SCDETRSV 


sco 
SCDABSAV 





OLZARC10 — Batch Partition Control CSECT DLZRRCOO 


DLZRRC10 — Batch Partition Controt CSECT : OLZRRCOO Extended Description : Extended Description Routine Label 


tended Descriptic . 

6. Linkage to DLZPRHBO is done 
1. This module’s end address is used via MVCOM macro. 
to initialize the beginning of 
storage available for control 


7, Use GETVIS macro. Issue message 
block building. 


DLZ0381 if GETVIS error. 


8. If utility program is a logical 
relationship utility, set R1 to 
point to the PST before passing 

- control to the utility. Set Ri 
to point to the user PCB list 
for all other programs. 


. Write message DLZ0121 if 
program is not found, 


. UPSI card information has 


been moved to the SCD. 
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Figure 2-3.5. Utility Block Build Request Entry 


INPUT 


From 


Step 2 


ULUCNTRL —— 


SCDOLIPS 


PST PDIR 


PSTPREAD j | POIRAODR 


DLZRRC10 — Batch Partition Control CSECT 


Extended Description 


1. Control comes from the batch 


program request handler (DLZBNUCO) 


when a utility block build request 
(BLDB) is detected. 


. If a block build error is indicated 
in ULUCNTRL, X‘O0C’ is set 
in-register 15 and control returns 
to the utility program. 


Figure 2-4.1 


PROCESS 


1. Restore registers saved during 
initialization. 


b> 2. Buitd the blocks. 


BALR Block Loader 


and Retocator 
23 


> 3. Establish addressability 


to PCBs. 


4. Return to caller. 








Figure 2-3.6. Application Program Control Completion 


PROCESS OUTPUT 
1. Set up UNLD cali to purge RI 
buffers and close DB. —= 
a) | DLZDLA00 _] 


BALR Calt 


Analyzer 





i ——— > 2. Write Log TERM Record. 


OUTPUT INPUT From 
Figure 2-3 
Step 6 
scD 
_— 
Log 1/0 AREA 


| 
eso ac ae 
| 


PPS] 
i PPSTIND 


Ri 


PSBLIST 


SCDDBLOP 





ScD 


scD 


SCDTRACE _—_— 


DLZRRCOO 


DLZRRC10 — Batch Partition Control CSECT 


Extended Description 


1. TERM record ID=X‘07’. 


4. The UNLD call is bypassed if 
the ULU return code in register 
15 is not zero. 


6. Issue macro DLZTRCAL 
TYPE=STOP. Trace 
ID=X'FC’. 





Gad [oz20810 DLZRDBLO 


BALR rag WRITE 















rag Point 
LOGOUT 
” 3. Force out last log record. 
| DLZRDBLO | 
FORCE WRITE 
> 4. Close the log. a 
Entry Point 
P 5. Close tape workfile if open. 
Gah CLOSE Macro 
P 6. Return to DOS/VS. 
DLZTRCAL 
. Macro 
mae) EOJ Macro 
DOs/vs 
DLZARCOO 
Extended Description Routine 





PST 


== 


Labet 
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Figure 2-3.7. Block Loader and Relocator (Part 1 of 5) 


From Figure 

INET 2:3.4, Step 1 
or 2-3.5, 
Step 2 


Ps 
PSTPCPSB 


| 


scD 
SCDDLIPS 
SCODLIUP 


STATLOLS 





scp PSiL 
SCDDLIUP jj PSILOMBN 





PSILGOPO 


PSB 


DLZRRC10 — Batch Partition Contro| CSECT 


Extended Description 


1. There are no blocks to load 
for the logical relationship 
utilities if this is the first 
call. 


The return address is saved 
in RETRGSV. 


. If the PCB is not found and 
the parameter identifier is 
ULU for a logical relationship 


utility, set a block load error 
indicator and retum to 
Figure 2-3.5, Step 3. 


Write message DLZO121 if the 
PSB is not found. 


Write e DLZ017] if the 
PSB version/modification level 
is incorrect. 


PROCESS OUTPUT 


1. Bypass block loading if identifier 
is ULU and entering here from 
Application Program Control 
(Figure 2-3.4, Step 1). Go to 
Figure 2-3.8, Step 8. 


RETRGSV 


2. Load the PSB. 


scD 
jax} LOAD Macro (Directory Entry’ SCDDLIUP 
Cay LOAD Macro 

- 

PDIRSYM 

PDIRADDR 

PDIRZWA 

POIRSILA 


3. Initialize OMB directory. DDIR 


D 


4. Initialize and relocate 
PSB pointers. 


DLZRRCOO 


Routine Label Extended Description Routine Label 








3. The PSILs are scanned for DDIRBILD 
DMB names and a DDIR is 

created for each unique DMB 

encountered. The address of 

the DDIR replaces the 

respective DMBNAME in each ~ 

PSIL. 


DLZPINIT | DLZPINIT 


DLZDBLMO 











Figure 2-3.7. Block Loader and Relocator (Part 2 of 5) 


INPUT 


losecaics fe 


[SDBORGN _| _— 
SDBF3 

SDBPARA 

so 


SOB 
B 


Bi 





ODIs. 


fopinsYM 


ODIR OMB 


DDIRCODE j [DMBORG 
DOMBPPRND 





ACBXT 


DMBCINV 


DOMBLRECL 


DLZRRC10 — Batch Partition Control! CSECT 


Extended Descripti 


. The call sensitivity and data 
base organization of the SDB 
is checked to see if buffer pool 
space is required. An indicator 
in the DDIR is turned on if 
space is required. 


. The pointer to the PSBLIST 
is bumped to the next PCB 
pointer entry and processing 
retums to Step 4 if we are not 


at the last PCB. 


If the index PCB exists, return 
to Step 5 and relocate it. 


. Write message DLZ0121 if the 
DMB is not found. 


Write message DLZO181 if the 
DMB version/modification level 
is incorrect. 








CS 


PROCESS OUTPUT 
5. Relocate the PCB and JCB PCB 
pointers. JCBLEVTB 
JCBLEVND 
JCBSDB1 
3CBSDBND 
6. Initialize all SDBs belonging DDIR SDB 
to a particular JCB. SDBFS 
SDBPARA 
SDBDSGA 
7. Test for the end of the PCBs in SDBTARG 
the PSBLIST. If not the end, . SOBKEYFD 
return to Step 4. SDBXPANS 





DoIR 


LOAD Macro (Directory Entry) 


= m 
= 


LOAD Macro SCDDLIUP 
DL/I Partition 


8. Load and relocate each DMB. 





9. Determine if buffer pool space ACBXT PST 


required and set indicators. IPSTWRK1__| 
LeSTWRKS_| 





DLZRRCOO 


Extended Descripti Routine Labei 





If the DMB is not found and 
the parameter identifier is ULU 
for a logical relationship utility, 
set a block load error indicator 
and return to Figure 2-3.5, 
Step 3. 

. If buffer pool space is required, GETBUFRS 

the size of each control interval 

(rounded to the next multiple 

of 512) is indicated in PSTWRK1 

and PSTWRK2 for later allocation 

of the buffer pool. 
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Figure 2-3.7. Block Loader and Relocator (Part 3 of 5) Figure 2-3.7. Block Loader and Relocator (Part 4 of 5) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


OMB DL/t Partition 


Df 
DMBDALGR 


OL/I Partition 


Index Exit Routine. 


| Randomizer | 


a 


PSDB 


DMBSFLG1 {|| OMBLST 


14. Process secondary list if 
present for each PSDB. 


SEC SEC 
r _..» 10. Load Randomizing Module if bMB DA\ 
organization is HDAM. GeMMD 040 eee (orecrory Eno 
Gz} LOAD Macro (Directory Entry) : MPRM 
, sco GEE) 040 ve 
(am AB [scopuiur_| 
im pacts (scoot Return to Step 11. 
a 
; 





XMPRM 





| OMEXMXNM| 





Lessee | 
DACS 


DMBDANME 






SB 
BLISS! 


PDIR. P: 
|PDIRCODE | 


: 
Lscoinpz __| 


PCB — 
OBPCBJCB__If JCB 


JCBPRLEN 


PSIL 














OMB 


OMBORG ODIRADDR: 


- ODIRLEN 


11, Adjust offsets in DMB to 
addresses for each valid DDIR. 
Atend of DDIRs, go to Step 15. 


——— > 15. Connect data bases to PCBs. 
: | DSGDMBNO| 





DSG 
DSGDMBNO 


| DSGDCBNO | 


12. Build VSAM Exit List, RPL, and 
ACBs. 








DMBACBNM 


GENCB BLK=RPL Macro 


GENCB BLK=EXLST Macro 


deve GENCB BLK=ACB Macro 





sDB SDBXP 
———F 16. Connect SDBs to PSDBs. 

psog 

DMBFSDB 









cB 


JCBSDB1 
JCBSDBND 







8 

i soBF3 | 
SDBDSGA 

j 






STATLDLS 2 


SCDOLIUP 


SDBXP 


SDBXPFOB 


DsG SDBEND 
DMB 


- pspe 
: : OMBESDB 
| DMBEDBA_| Fpmeceer _| 


DB 
IBEDBA 2 
DMBSCTAS DMBCPRES DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


Sco 
DDOLIUP 


DLZRRCOO 









Dis! Partition 


13. Relocate PSDBs and SEC list. 

OMB 
Germ 040 ster irectony Entry 
LOAD Macro 







ane 
Extended Description 
14. If a secondary list is present, 
its code is tested and referenced 
DMBs are resolved to DDIR 

pointers and placed in the list. 


Routine 2 be 
DLZPINIT | PROCSEC 














15. If this is Reload Restart, 
the parameter ID is ULR. 
Bypass checking whether 
the processing option should 
be changed to load or not. 














If an index user exit routine is 
present it is loaded if it hasn’t 
already been loaded for a 

previous SEC. 





Routine 









i1. The DTF address constants are 
adjusted if access is HSAM or 
simple HSAM. 

12. If HISAM, two sets of control 
blocks will be built. 


13. The segment compression routine 


10. Before loading the randomizer a 
check is made with all currently 
loaded randomizers. If one with 
the same name as the one we are 
loading is found, the entry point 
is resolved and the actual load is 
bypassed. : 





Write message DLZ2661 if there 
is an invalid secondary list code. 










Write message DLZ0121 if the 
user exit routine is not found. 


for each PSDB is loaded (if it 
hasn’t already been loaded for a 
previous PSDB). 

Write message DLZ0121 if the 


compression routine is not found. 






Returm to Step 8 until there are 
: no more DDIRs. 


Write message DLZ263! if the 
SEC makes an invalid DMB 


reference. 





Write message DLZ012I if the ran- 
domizing module is not found. 
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* Figure 2-3.7. Block Loeder and Relocator (Part 5 of 5) 
INPUT PROCESS OUTPUT 


sco 
SCDDLIUP 


PSB Prefix sees 17. Initialize field level sensitivity tables. sco 


scootue | [renrenes | 


FSBIVA 
FSBFERTA 


FATA 





FERTRTEP 
To Figure 
2-3 Step 8 
DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 
Extended Description Routine Label Extended Description Routine Label 


17, Includes FERT, FSB, and loading user 
field exit routines. 
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Figure 2-3.8. Control Program Initialization Completion {Part 1 of 3) 


From. 
INPUT. Figure 2-3 
P scp Se 
rScoDLION 


BFPL SCDDLIUP — <= » 
BFPLLEN 


SBIF 


SUBLEN 
SUBPOOLN ars Pp 


SCDOBFPL —_—— —- 


BFPL ACBXT 


BFPLSUBD |] DMBRBASN|| | 


omB 
Subpool 
Directory 


DLZRRC10 — Batch Partition Control CSECT 


Extended Description 


1. DLZCPI00 | DLZCPIOO 


— 
~. 

2. Write message DLZOO9I if number 

of subpools specified in the param- 


eter statement are not equal to the 
number of HDBFR statements. 


3. 


4. This step determines the size of the 
subpools. They are allocated, largest 
first, until the specified number is 
exhausted. Remaining DMBs requir- 
ing subpools are assigned evenly 


across all existing subpools. If you 
specified more subpools than 
necessary, an additional pool of 
512 buffer size is allocated for 
delete workspace. 


The subpool sizes are sorted so that 
the largest subpool appears first in 
the information table. 


PROCESS 


1. Acquire storage for the buffer 
poo! prefix and subpool informa- 
tion table. If subpools are not 
required, skip to Step 8. 


2. Analyze and interpret the 
following parameters in the 
DL/I parameter card: 


HDBFR HSBFR TRACE ASLOG LOG 


BALR DL/I Control 


Card Analyze 
Routine 






3. Format the buffer pool prefix. 


4. Store buffer sizes in subpool 
information table. 


SCD 
ISCDDBFPL 


scbd 





PST. 
epis 


BFPLAOCD 







SBIF 


| SUBBFSIZ_| 
SUBBDMBCT. 









Figure 2-3.8. Control Program initialization Completion (Part 2 of 3) 


INPUT 


BEPLSU 


SUBBFHD OMBRBASN 


SUBBFS12 
| SUBDMBCT | ODIA 


SBIF 


BEPL 
BFPLPRAD }|SUBBFNO ———F 


sco 


SCDDBFPL 





OLZRRC10 — Batch Partition Controi CSECT 


Extended Description 


5. Write message DLZ2621 if buffer 
allocation error occurs. 





PROCESS 


5. Assign DMBs not previously 
assigned to subpools by HDBFR 
statements. 


6. Print subpool allocation 
statistics. 


7. Format buffer prefixes and 
allocate I/O buffers. 


8. Bypass DL/I load processing if 
they have once been loaded. 
Skip to Step 13. 


OUTPUT 


BIF 
SUBDMBCT OMB 
Subpool 
ACBXT 


DMBRBASN 





SYSLST 


SBIF CD. 


SUBUCPRE SCDDLIUP 
ISUBUCHAI | 


BFFR 


BFFRADDR 





DLZRRCOO 


Routine 
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Figure 2-3.8. Control Program Initialization Compietion (Part 3 of 3) 
INPUT PROCESS OUTPUT 


DL/I Partition . 
DLAI Facility 
Modules 


CD 
SCDDDBHO thru 
SCDDSEHO and SCDSTROO 


LOADTBL 






9. Load each DL/I facility module 
if required and not in SVA. 





|Lscopuuiup 


DOS/vVS 
Core Image Library” 


DL/I Partition 


DLZCPY10 10. Load FLS module if needed. 


coed 


Dos/vs 
Core image Library 


11. Load the trace module if needed. 


(am DLZTRCAL 


sc 


D 
SCDDLIUP. 
SCDTRACE 





12. tnitialize DB logging. 


eam DLZRDBLO 
BAL LOG INIT 
Entry Point 










SCD 
| SCDSIND _ | 


rs a | 


ScD PDIR 


13. Write log schedule record. 
iscocwrK _| 
tog WO 
pie ALR" LOGWRITE 
Only Sade 
Entry Point 
faetacsy eS 14, Retum to caller. 
LoGouT 
DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 
Extended Description Routine Label Extended Description Routine Label 


9. 12. Cancel if open error returned. Upon NOLOMOD 
retum, the entry points to DLZRDBLO 
11. Issue macro DLZTRCAL TYPE=STAR’ in the ‘Data Base Change Log Section’ 
following the load. Trace ID=X‘FE’. of the SCD (beginning with the 


Write message DLZ0261 if initialization 
fails. 


SCDREENT) are initialized. 


13, The scheduled record ID="08’. 


14. Return is made to the instruction 
following the BALR to DLZPINIT. 





OLZCPY10 Module 
ScD 

SCDCPY10 

Di/! Partition 
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Figure 2-3.9. DL/! Control Card Analyze Routine 


WNPUT 
From 


Workerea scp 
sists 2] 


opin 


suspooun_ |r — — 
DOIRLEN 


SBIF 


sco Workarea 


— ss 


ODIR DMBACBAD 
DDIRADDR OMBACBLN 


OMB 
DM80AG 
OMBPPRLN 


A 
i 


Extended Description 





1. The number of buffers/subpools 
specified in the HDBFR statement 
is set in the SBIF. Write message 
DLZ0191 if the number is greater 
than 32 or less than 2. Default is 2. 


The SUBPOOLN is incremented 1 

for every HDBFR statement. Each 
DMB is assigned by placing the 

relative subpool number (SUBPOOLN) 
it is being assigned to into a byte of 
the DMB SUBP DIR which corre- 


sponds to that DMB. The length in 
bytes of the DMB SUBP DIR equals 
the total number of DMBs. Write 
message DLZ008I if this. DMB has 
already been assigned a subpool. 


CNTHDMB is a count of all the data 
bases assigned by the user in the 
HDBFR statements. 


Figure 2-3.8 
Step 2 


2. Interpret the HSBFR statement. 


3. Interpret the TRACE statement. 


—-—-—> 4. Interpret the ASLOG statement. 


OUTPUT 


SBIF 


1. Interpret the HDBFR statement. 


Directory SUBBFHO 


fd 






ACB 
ACBBUFND 






sco 


SCOTRCNM jf TRACSAV 


LOAD Macro (Directory Entry} 


ScD 


SCDDBLOP 


tT 


To Figure 
23.8 


5. Interpret the LOG statement. 


Step 2 


OLZRRCOO 


Label Extended Description Routine Label 





Write message DLZ008I if a DMB 
name is invalid. 


. The user specified VSAM buffer 
allocations are set in the ACB for 
HISAM and INDEX DBDs. 


Write message DLZO08I for an 
invalid DMB reference. Write 
message DLZ0191 if valid values 
were not specified. 


. Write message DLZO12I if module 
is not found. 


. Write message DLZ0151 if there 
is a syntax error. 


. Write message DLZ078I if UPSI 


card said no log. 


Write message DLZO7S1 if invalid 
parameters, 








WA] J0 4319d01g—ye119)} BJA] posuacry] 


Z WOES 


uoneJedg jo pomp 


SI -7@ 


Figure 2-4. Batch Nucleus (Overview) 


INPUT PROCESS OUTPUT 








1. Batch Program Request Handler 
(See Figure 2-4.1) 


2. Partition ABEND Routine Entry 
(See Figure 2-4.2) 


OLZIWAIT 
Macro Cail 


3. DL/I Batch Wait Routine 


Return To 


OL/ 
Facility 
Modules 


4. Branch instruction used if 
no logging. 


Return To 
Caller 


3. The DLZIWAIT macro is used by 
DLZRDBHOO, DLZDBHO2 and 
DLZRDBLO. 


. After the DLZBNUCO module is 
loaded, SCDDBLNT contains the 
entry point of this routine. 


If, however, batch initialization 
(DLZRRCOO0) determines that the 
DB lopger is required, the entry 
point of the log initialization 
routine in DLZRDBLO is stored in 


SCDDBLNT. The log initialization 
routine changes SCDDBLNT once 
more to point to the log writer 
entry point. 


With this routine, the DL/I 
facility modules need not know 
if logging is required or not. 








WAl J0 Ayzodoig—eiiaze py posuasrT] 


91-7? 


Z SUINJOA ‘TenueW d1Z07 SA/SOC 1/14 


Figure 24.1. Batch Program Request Handler 
INPUT 





SCDLOWER 





See Note 


PROCESS 


1. Establish SCD and PST addressability. 


2. Determine if this is an utility block build 
call. If it is, go to Figure 2-3.5. If it is not, 











Cle 


DLZDLAOO: 





SCDCSECT - Batch Nucleus CSECT 





continue at Step 3 
PST 
———-—)P 3. Verify call list and store in PST. 
fs = 
——— $4. Pass control to call analyzer to validate and R13 
perform DL/t function. PSTSV1 
BALR 
User 
If no errors are detected upon return from oa 
. DLZDLAOO, move data to specified area. 
Return to 
Application 
Program 
|PSTABIND | [scoasene] —-~-—-—} 6. If an error has occurred upon return from 
[DLZRACOO | 
= 
Writer 
Termination 
24.2 
DLZBNUCO 
Routine Label 


Extended Description Routine Label 


Note: This routine receives control from 
the language interface module (DLZLIC00) 
linked with the application program. 


1. When control is passed to the program } DLZPRHBO | DLZPRHBO 
request handler, register 1 must point 
to the user parameter list and register 
13 to the user save area. 


During the first entry to DLZPRHBO, 
the PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZPRHBO also 
sets/resets a switch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or 
PL/I code. This is done to enable high 
level language debugging for PL/I to 
give diagnostic information if a program 
check occurs in PL/I code. 


Reset PC exits if this is a PL/I applica- 
tion. 


2. 


3. Write message DLZ2601 if invalid list 





count. Write message DLZ2611 if 
invalid parameter address. Then exit to 
DLZABEND. 


. Write message DLZ105I if a checkpoint 
was taken. 


. If a DL/T routine determined that DL/I 
should be terminated, go to the 
common error message routine to write 
an error message using the message 
number stored in PSTERCOD by the 


DL/I routine. 


MOVLUPBP 
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Figure 2-4.2. Partition ABEND Routine Entry (Part 1 of 2) Figure 2-4.2. Partition ABEND Routine Entry (Part 2 of 2) 
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INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Caller 
(See Note} 
scp — — > 7. tssue UNLD call — 
clemae UNED ofl 
; satay foizoia00 | 
1. Establish SCD address. ad DLZDLAOO 
: y EDL/I Analyzer 
a P’ 2. Force write and close data Module 
base log if required. LOGOUT 8. Issue message DLZ002I. 
[ouzapao a 
DLZRDBLO =o Momage 
Force Write titer 2-3.1 
BALR Entry Point 
9. If no dump wanted 
[DLzRDBLO DLZTRCAL 
mt ——— ee TYPE=STOP Macro 
P Close Routine 
scp 10. 1f IDUMP is on system 


ABIND ims acme 


3, Close workfile if required. 


=z CLOSE Mecro 


4. Bypass unloading the buffers if 


there was an error with the 
buffer handler; skip to Step 9. 





SCDCSECT — Batch Nucteus CSECT 


Extended Des 


Note: The ABEND routine is invoked 
by the DOS/VS supervisor if (1) there 
is a program check or other ABEND 
situation found by DOS/VS, (2) if 
the job is being abnormally ended by 
a DL/I routine that determines DL/I 
should be abnormally ended, or (3) 
specifically by the buffer handler 
when there is an error concerning 
buffers. 


1. If there is a program check, DLZABEND {| DLZABENDID 
checks the switch (SCDLIPLI flag in 
SCD) set by DLZPRHBO to determine if 
program check occurred in PL/I code. 
If error occurred while in PL/I code 
(SCDLIPLI= 1), a return address is 
modified and a branch is made to PL/I 
STXIT PC routine. (The address of the 
_PL/I STXIT PC routine was saved during 





5. Issue message DLZ0011. 


BALR 


= 





**DL/t ABEND 
SAVE AREA** 





6. Bypass unloading the buffers if 
VSAM is active; skip to Step 9. 


DLZBNUCO 


Extended Descriptic Routine Label 








the first entry to DLZPRHBO - see: 
Figure 2-4.4, Step 1.) After PL/I 
completes diagnostic information, 
processing returns to the modified 
address in DLZABEND. 


3. If the HD reorganization reload module 
(@LZURGLD) is running for either a 
standard reload or a reload restart, close 


the workfile generator file if it is open. 





STATLDLS 


(euzrspro...} LZFSDPO 


— 


DOs/vs 
Core 


DLZTRCAL 


IDUMP TYPE=STOP Macro} 


Cancel. 


A, 11. Load and execute the formatted 


system dump program if required. 
GETVIS Macro 


(om LOAD MACRO 


- gan DLZFSDPO 






Formatted 
System Dump 


image Library Program 
DLZTRCAL 
TYPE=STOP Macro; 


SCDCSECT — Batch Nucleus CSECT 


‘Extended Description 
7. 
9. 


10. DLZIDUMP macro determines if 
IDUMP is available. 


11. The GETVIS macro is used to 
acquire storage for DLZFSDPO. 
If there is not enough storage 
available to DLZFSDPO, only 
JDUMP output is put to SYSLST. 





ap JDUMP Macro 


Extanded Description 


To DOS/VS 





R4 








DLZBNUCO 


Routine 


PSTERCOD ec 


SYSLST 


Label 
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Figure 2-5. Online Initialization (Overview) 


INPUT 


Extended Description 





From PROCESS 
CICS/VS 


Overlay 
Supervisor 


. Online initialization start. 
{See Figure 2-5.1) 


. PSB processing. 
(See Figure 2-5.2) 


. OMB processing. 
(See Figure 2-5.3) 


. Control program initialization. 
(See Figure 2-5.4) 


DMB open processing and online 
initialization completion. 
(See Figure 2-5.5) 


Routine Label 


DLZOLIOO 
PSBLOADL 
DDIRINIT 
DLZCPIOO 
DMBOPENA 





Cics/vs 
Partition 


DLZOLI00vrnp 


DLZOLt00vrnp is the module 
identifier where ‘v’ is the versinn, 
‘rc’ is the release, ‘n’ is an additional 
identification digit, and ‘p’ is the 
latest PTF number that has been 
applied. 





DLZOLICO 


Routine Label 
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Figure 2-5.1. Online Initialization Start Figure 2-5.2. PSB Processing 





INPUT From PROCESS OUTPUT {NPUT ae PROCESS OUTPUT 
Figure 2-5 Figure 2-5 
Step 1 Step 2 
ene ae “ae 
. cics/VS Sontrol noosa scD. | PDIRSYM _| 
CSAOPEL. ° Lietupsv_ | froinorrc |) He — — 1. Load PSBs. 
CSADLI a 
BALR Module Load 


Routine 
25.6 


Z woNsesg 
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61-2 











ENOSAVE | Sosyys 
COMREG 


SCDPRHED 


SCDLSTAD 






CSA PPT 
——-— 3. Initialize ACT. 
scD ACT 








1. Module identifier (DLZOLI00vrnp) is 
defined here. 


Upon entry from the CICS/VS Overlay 
Supervisor, SIPBAR2 contains the 

overlay entry point, and SIPBAR] 
contains the SIP common communications, 
area. The current storage allocation infor- 
mation is saved in order to release storage 
if DL/I initialization fails. 

The DL/I systems contents directory is 
located from the CSADLI field in the CSA 
optional features list (CSAOPFL). 


Write message DLZ0311 if program isola- 
tion is being used and either CICS/VS 


-{DLZOLIOO (DLZOLIOO 


tala Not being used or program 


name DFHDBP (dynamic transaction 
backout) is not in the PPT. 

Write message DLZOSOI if the nucleus is 
not found. 

Write message DLZ0641 if the nucleus is 
an invalid version. 

. CSADLI is modified to point to the DL/I 
interface module address list, (DFHDLIAL 
DSECT), which is a table of entry points 
for the task initiation module and the task 
and system termination routines. 


2. Initialize online nucleus. 


SD ivcom mero 






SCDIWAIT 


CSAQPEL 
CSADLI 


DOS/VS 
COMREG 





ACTIND PPTTLR 


PPST 





siP pst ————} 4. Build temporary PST and PPST 
used during initialization. 
erst (eum) [Scone 
# BALR CICS/VS 
GETMAIN Routine 

To 
Figure 2-5 
Step 2 

DLZOLIO0 — Online initialization CSECT DLZOLIO0 

Extended Description Routine Labei Routine 


SCDSIND is initialized with bits 6 and 7 of 
the UPSI switch from the COMREG. The 
program request handler entry point is 
moved to byte 16 of the COMREG and 
temporary entry points are established for 
the error message routine and the DL/I wait 
routine. Also, SCDCWRK is initialized at 
this time to point to the beginning of the 
low end of free storage. 

. Indicators are set in the CICS/VS PPT mark- 
ing the program eligible for DL/I services, 
They are set in the DL/I ACT entry indica- 
ting the program was located in the PPT. 
Write message DLZ034I for each ACT pro- 
io not in the PPT. Write message 
a if any ACT program is not in the 


The PST and PPST are built directly after 
the initialization overlay high storage ad- 
dress, The save areas are chained and 
SCDCWRK is updated to indicate the new 
upward core allocation starting address, A 
dummy task ID of ‘01’ is set in the PPST. 


Since a DL/I task with its associated PST is 
not yet involved, a temporary PST is needed 
to provide work space and save areas during 
the execution of this module. 


PST 
SV6 





PSB 


PSBCODE 








f° 2. Initialize PDIR. 





















PCB 
DSGDMBNO] [DBPCBJCB 





PCB PCB 
parcacs 


DSG PSIL 


DSGDMBNO] jPSILLNGH 
DSGOSGLN 





DLZOLIO0 — Online tnitiatization CSECT 
xtended Descripti 


1, The PDIR address is located in the SCD PSBLOADL |PSBLOADL 
and each local PSB is loaded temporarily, 
directly behind the dummy PST: The 
PSIL entries that indicate the DMBs 
which may be used by this PSB are 
loaded along with the PSB. They are 
appended in front of the PSB. If PSB 
initialization is successful, it will be 
moved up prior to completion of 
initialization. 

Write message DLZ044I if the PSB is 
not found. 


: Write me: DLZO711 if the PSB is 
not version/modification 1.1 or later. 


. All the SDBs for each PCB in a 
Sets tested Te Noo 
pr options. tors are set 
in the corresponding PDIR entry, PSIL 
entry, and the SCD to indicate intent. 
The corresponding SIL entry is found 
by using the offset value found in 
DSGDMBNO. 
Write message DLZ0421 if a PSB 
accesses a HSAM DBD online. 








PsB 
= 3. Check PCBs sensitivity. 
JCB 
SDBFS | 
OSG 


aig aa 4, Move the PSIL and create the 
segment intent list mask. 








. The PSILs are moved from the 





POIR 
PDIRADDR 


PDIRZWA 





PSIL 


PSILNTNT 





PDIR osc 
poiRsita_} [psGcomeno) | 


PSit. 


(esuincu } 


SCD PDIR 
Iscosino | [ppincope 





To DLZOLICO 


Label 


Routine 





DLZ0431 if load 
sensitivity is detected. A PSB contains 
a PCB with PROCOPT=L which is 
invalid online. 

PDIRSMUV 
temporary position and as they are 
moved, the size of each entry is 
increased by the size of PSILSEGD 

to allow for the segment intent bits 
mask copy. For program isolation, 
non-exclusive intent bits are translated 
to read-only to allow simultaneous 
scheduling of update-sensitive segments. 
All the DSG! NOs are adjusted to 


show the new offset. Also, each 
PSILLNGH is adjusted to show each 


new PSIL entry 
is moved, 


Return is made to Step 1 to repeat 
this routine for PSB until there are 
no more. 


as each entry 
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Figure 2-6.3. DMB Processing (Part 1 of 3) Figure 2-5.3. DMB Processing (Part 2 of 3) 
INPUT ram PROCESS OUTPUT INPUT PROCESS OUTPUT 


Figure 245 
Sup 3 







DDIR 
PSIL DDIR DDIRSYM 


—— > 1. initialize DMB directory. DDIRCODE 
ACBXT 
ae 5. Scan HSBFR entries in ACT. 


DMB 
fyucao_| eee 
IFFOO........... | 


—~——P 2. Build a DDIR if the DMB does not ; 
have one. DDIRNOUP is initially 
settol. = cercons Sit om <1 t- — FP 6. Adjust offsets in DMB to 
Storage Acquisition addresses for each valid DDIR. 
(eae) | Ee 





sco 
| SCDDLIDM | | ODIRSYM | 









BALR 25.7 At end of DDIRs go to Figure 
: -9, otep 4. 


scD 


PSIL BDIR 


SCDEXTBA Al 
PSItLDIRN DOIRNUMB 
Ce = 7. Build VSAM RPL, Exit List, and ACBs. [] 


DMBACBRP 
TomBaceex | | 


—— 3 3. Store DMB number in DDIR and 
PSIL: 


ACBXT eam 
OMBUSBFR | SCDEXT 


DMBACBNM | ISCDEVSEX 


GETCORE 


Storage 





BALR 








Acquisition 
Routine 
2. 





GENCB BLK=RPL Macro 


DDIR === GENCB BLK=EXLST Macro 


fiestas en cae 
oad and each DM 


GENCB BLK=ACB Macro 





Bulld Associated 
DMB Control Blocks 
25.10 





BAL 
DLZOLIOO — Ontine Initialization CSECT DLZOL100 


* DLZOL100 — Ontine Initialization CSECT DLZOLIOO 


rear aoe . 5. Write message DLZ0291 if invalid DDIRINIT |CHKHSB 
Extended Description Extended Description Routine Labe! DBDNAME in HSBER statement. 
. 1. The PSILs are scanned for DMB names | DDIRINIT 
~ and a DDIR is created for each unique 
DMB encountered. The address of the 
’ DDIR replaces the respective dmbname 
in each PSIL. If PSILGOPO = 0, set 
a ada = 0 for corresponding 
MB. 


2. Write message DLZ0451 if no 
CICS/VS FCT. 7 


Write message DLZ046I if no FCT 
entry existed matching the dbdname. 


. Write message DLZ0491 if no valid 
DMBs are found. . 





wate re one no Nalld The number of index buffers and 


KSDS buffers in the HSBFR entry 

is moved to the ACB extension. If 

the organization is HISAM the number 
of ESDS buffers is moved to the 
second ACBXT. These values are 

used in building the VSAM ACBs 

(in Step 7). 


. If HISAM, two sets of control blocks 
will be built. 


Information obtained from HSBFR 
statements is used for the GENCB 
BLK=ACB BUFND=parameter and 
BUFNI parameter. If none was 
specified, the default of 3 index 
buffers and 2 data buffers is used. 


. Write message DLZ0471 if DMB not 
in library. : 
Write message DLZ072I if the DMB 
is not version 1.1 or later. 


Write message DLZ048I if the 
randomizing module is not found. 
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Figure 2-5.3. DMB Processing (Part 3 of 3) 
PROCESS OUTPUT 


PSDB = 
lDMBLENTs | 


PsoB CPAC 


8. Relocate PSDBs and SEC list. 


Z wong 


ye10dO JO poroy] 


uor 


t-@ 





f SCD 
ISCDDLIDM 


DDIR = 
poren J 


XMPRM 


DLZOLIOO — Ontine Initialization CSECT 


8. The segment compression modules 
for each PSDB is loaded if present. 


Write message DLZ0731 if the 
compression module is not found. 


. If a secondary list is present, its 
code is tested, and referenced 
DMBs are resolved to DDIR pointers 
and placed in the list. 


If an index user exit routine is 
present it is loaded. 


Write message DLZ0131 if the SEC 
makes an invalid DMB reference. 


Write message DLZ2661 if there 
is an invalid secondary code. 


Write message DLZ074I if the 
indexing module is not found. 





am oon 


BALR | Module Load i 
Routine 
25.6 


9. Process Secondary List if 
present for each PSDB. 


GEMM [witioon 


BALR Module Load 
Routine 
25.6 





Return to Step 6. 





PSDB 
XMPRM 


DMBXMXEP 
DMBXMRES 


DLZOLIOO 


OMBSCTAB OMBCPRES 


SEC 


| DMBSECD | 
DMBXITAD 

DMBXDSDB 
DOMBXPSDB 
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Figure 2-5.4. Control Program Initialization (Part 1 of 3) Figure 25.4. Control Program Initialization (Part 2 of 3) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
desis Sep 
7. Allocate buffers if required. 


Gammp[curaiicc 


BALR Buffer Allocation 
Routine 
25.9 





ScD 


PDIR 
SCDDLIPN {| PDIRADDR 
SCDDLIPS |] POIRPSBL ? 


PDIRZWA 


PDIROPTC 


1. Control program initialization 
entry. 







2. Acquire storage for PSB and 
index work area. 


(eum (setcone | 


BALR | Storage 
Acquisition 


Routing. 7 


| scooDBHo | 


ScD 


| scoppsno _| 
scop.ict | LICT 
ISCDDBLNT | 
IscDDLIDR | 
PSCDDLIIN | 










PDIR PSB _ 8. If the number of DDIR entries does not 


equal 0, then load Action Modules. 


fem) [ere 


POIRADDR 
PSBSEGWK 
ScD PSBNDXWK 








3. Move PSB to permanent location. 


BALR 
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OLZOLIOO — Ontine Initialization CSECT 


2. The address of the storage acquired 
is used as the ‘move-to’ address in 
Step 3. 


. Once the PSB is moved, its new 
address is stored in the PDIR and 
the old PSB address becomes the 
new code upper boundary address 
(upward core allocation starting 
address), SCDCWRK. 


. Write message DLZ056I if PSB 
fails to initialize. 


. If there is an SLC name at the 
nucleus address +8, the SLCLOAD 
routine loads the action modules. 


Write message DLZ032A and termi- 
nate DL/I initialization if CICS/VS 
journalling pe be we at ri 
is no system log entry (X‘01’) in 
the JCT. 








4. Initialize PSB. 


PSBRELO 


BALR PSB Initialization 
2-5.41 


Routine 





5. Return to Step 2 for each PDIR. 


6. Load action modules as SLC 
says if requested. 


eam SLCLOAD 


BALR | Storage Layout 
Contro! Routine 






DLZOLIOO 


Routine Labet 





[scocmne } [rseioawe | 








SCODBLNT 


SCDEXTBA 


DLZOLIOO — Online Initialization CSECT 
Extended Description 


7. If there is not a buffer pool prefix 
address in the SCD indicating the 
buffers have already been allocated 
and the number of subpools required 
is not zero, go allocate the buffers. 


. If CICS/VS journaling is supported, 
DLZRDBLO in the NUCLODTB is 
replaced with DLZRDBLI. 


Any module already loaded by 
SLCLOAD will not be reloaded. 


Write message DLZ0551 if a DL/I 


facility module is not found. 


. SCDDBLNT is loaded with the entry 
point at the proper logger initialization 
routine (DLZRDBLO or DLZRDBLI). 
If logging was suppressed SCDDBLNT 
will continue to point to a branch 14 
for immediate return to caller. 


Module Loed 
Routine 
25.6 


9. initialize data base logging 
if not suppressed. 


co DLZROBLO 
jer 


BALR 








Initialization 


or 


(amp | zee 
BALR CICS/VS Journal 
Logger Initialization 


If Logging is suppressed go 
to Figure as, Step 5. 













SCDDXMTO 
SCDDLICL 








DLZOLI00 


SCDELECB 
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Figure 2-5.4. Control Program Initialization (Part 3 of 3) 
INPUT PROCESS 





SCDSIND SCDEXT 
-— 10. Attach the asynchronous logger 
SCDDBLAS 


if the CICS/VS journal logger 
is being used. 


== ATTACH Macro 


{f error: 
a] DLZADBLI 


BALR Log Close 
- Routine 


To 
Figure 2-6 


DLZOLI00 — Ontine Initiatization CSECT 


Extended Description : Routine Label Extended Description 


10. Write message DLZ006I if the DLZCPI00} NUCLODNX 
asynchronous logger did not 
successfully attach and go 
close the log. 


The address list for the 
asynchronous portion of the 
database logger and its save 
area address are located in 
the database log load module 
just prior to the entry point. 
If the attach fails, the 
database log is closed and 


the system continues without 
log support 


DLZOLIOO 


Routine 





Label 
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Figure 2-5.5. DMB Open Processing and Online Initialization Completion Figure 2-5.6. Module Load Routine. 


INPUT PROCESS OUTPUT INPUT F PROCESS OUTPUT 

From rom 

Figure 2-5 Calier 

Step 5 

fauown | 
scp DpIR BLDLVSA 
SOSNiS 1. Load Directory Entry. pea 
——-P 1. Determine if the DMB can be Core lege eres / Entry 
DDIRLEN opened. = > 





DDIR 
DDIRCODE 


PST 


PSTENCTN 


scp [| ____ > 2. Issue OPEN ALL call to DL/I 2. If phase SVA resident go to 
open/close. Step 5. 
oe 
- 
: Module 
DDIR 
SRE 






CD 





BLOLVSA 3. Acquire storage for requested BLOLVSA 











hase; either A or B: Size of 
cll 7 : Storage Requested 


3. Scan DDIR for successful pon 


sco 
DDIAVSRT completion of open call. BHIRCGOE 


Blocks 










Storage Acquisition 
Routine 





scp siP scp 

4. Write message DLZ053! — ENDSAVE 

DLAI Initialization Complete JENDSAVE_] 
SCDUPPER 

or SCDIWAIT 


BLDLVSA 





Write message DLZ054! — DL/i 





dest daapee scD cics/vs 
Initialization Error Detected. Lito ea: Partition 
[os Fos | 
Dos/vs =a LOAD Macro Losded 
COMREG Phase 
___ 





DOS/VS 5. Set phase entry point. 
Core Image 
Library R1 









DLZOLI00 — Online Initialization CSECT | 
DLZOLIO0 — Online Initialization CSECT DLZOLIO00 





Extended Description Routine Label 


1. Caller passes requested phase name INITLODR |INITLODR 
in a work field BLDLN. The output 
of the load call is a DOS/VS 
directory entry at BLDLVSA. 





. If all PSBs are remote, do not attempt +|DMBOPENA 


OPEN. 4. If low address space is requested 
by the caller SCDCWRK is used 
as the load address. After the 
load macro the end address of the 
module will be in the DOS/VS 
COMREG. SCDCWRK is updated 
with this end address to show the 
new low end of free storage. 






. Write message DLZ0571 if an open 

error occurred attempting to open a 

DMB. 

. Amount of storage is deter- 
mined by: 


Number of Library Block 
x 1024 + Number of Bytes 
in Last Block. 


INITSW indicates whether 
caller wants low address space 
or.CICS/VS to acquire the space. 







. During the course of initialization an 
error can also cause a direct return to 
CICS/VS with message DLZ052I - Ini- 

tialization Failed. 


. The phase entry point is passed 
back to the caller in register 1. 


B. Write message DLZ058I if 
insufficient core to initialize 
DL/I. 
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Figure 2-5.7. Storage Acquisition Routine 


INPUT PROCESS 


From 
Catler 


COREADSJ SIPCOM 
7 | | 


Rt ENDSAVE 
() Lxetusav 


1. Align the storage requested to 
specified alignment desired. 


SIP 
[J Lsecone 


2. Acquire storage from CICS/VS; 
either low or upper storage. 


SIPCORE 


CICS/VS SIP 
Storage Routine 


Ri 
scD 








3. Return storage address in 





a au R11 to caller 
DLZOLIOO — Online Initialization CSECT 
Extended Description Routine Label Extended Description 





1. If alignment is desired the number IGETCORE |GETCOREA 
of additional bytes needed to align 


is calculated and put in R7. 


Register 1 is updated to show the 
new total number of bytes required. 


2. Write message DLZOS8I if insuffi- 
cient storage to initialize DL/!. 


The SLCOPT flag byte (moved to 
SIPCORE from a storage layout 
control table entry) is used by 
CICS/VS GETMAIN routine. If we 
are doing our own alignment SLCOPT 
is examined to determine whether 
low or high storage was desired by 

the user. 


. The load point returned in RO by 
Step 2 is adjusted by the additional 
bytes in R7 to get the requested 
alignment. This needs to be done 
only if low storage was acquired. 


To 
Caller 





OUTPUT 


either: 


“"SCDCWRK 


Rt 


OLZOLIOO 


Routine 





Label 





Figure 2-5.8. Storage Layout Control Routine 
INPUT 





PROCESS 


1. Build the storage layout control 
table. 


SIP. 
(suisti> _] LISTID 


SIPBLDL 


CICS/VS Build 


I 





BALR 









































BALR 






Module Load 
Routine 


SCDDXMTO 
SCDDLICL 


SCDQUEFW 
SCDCPY10 


25.6 






= - 
L— > 2. Load the table. 
INITEND 
SIPLDER 
BALR | CICS/VS Loader 
Routine 
SLC PST 
_———"> __ 3. Determine if the SLC entry is 
Tsucopr _| for the buffer pool. forrerr | 
(=m) 35 
BALR Butter, Allocation SCDDDBHO 
2-5.9 SCDDLIRE 
SLC 
SLCMODNM SCDDLICT 
SLCOPT > 4. Load each module in the SLC SCDDBLNT 
table and set the entry points 
in the SCD. 
PSLCLEN | Iscopuiin | 
(op INITLODR SCDDHDSO 


ENDSAVE 
LNGTHSAV. 


DLZOLIOO — Online Initialization CSECT 


2. Write message DLZ0301 if the loaded 
SLC table does not begin with 
*DLZSLC*. 


The table is loaded directly after 
module DLZOLIOO. 


. The user would have specified the 
DLZSLC statement with 
MODULE=BUFFER. 


. As each module in the SLC table 
is loaded, the need to load flag is 
turned off so that upon return to 
Figure 2-5.4 these modules will not 
be reloaded. 


The SLCOPT for each module, as it 
is loaded, is moved to SIPCORE for 
use by the GETCORE routine. 





5. Update the online free storage 
beginning pointer. 


Figure 2-5.4 
Step 7 


DLZOLI00 


SLCLOAD |SLCLOAD 
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Figure 2-5.9. Buffer Allocation Routine (Part 1 of 2) 


INPUT From PROCESS OUTPUT 
Figure 2-5.4 
Step 7 or 
Figure 2-5.8 
Step 3 
CD 
—F — 1. Determine how many subpools R 
iscpoBFPL | 


HDBFR ei I 





scD SBIF 
ISCDDBFPL. SUBLEN a ee 
SCDDLIDN 


BFPL 





SCDDLIDM 
SCODLION DDIRSYM 


ODIRNUMB 





HDBFR oT 









PST BFPL 
| pstwrk1_| | BEPLSUBD ee 
ppstwaks_| | BrPLsuIN 





ACBXT 


scD 
DMBRBASN SCDDBFPL 
DMB Subpool 
Directory 


DLZOLIO0 — Online Initialization CSECT 






Extended Description 


1. Buffer allocation is done by this 
 -subroutine. The required number 
is set to the user specified total 
--in the DL! parameter if the user 

number is smaller than required. 


. Write message DLZ060I followed 
by DLZ061A if-buffer pool © 
allocation is missing or invalid. 


. Write message DLZ0291 if there 
is an invalid DBDNAME in 
HDBER entry. 


the user wants. 


2. Acquire aligned storage for buffer 
pool prefix, subpool information 


tables, and subpool directory. sip 






GETCOREA 


Storage Acquisition 
Routine 


3. Format the buffer pool prefix. 


BALA 





sco BEPL 
SCDDBFA BFPLID 


BFPLROCO 


BFPLSUBD 








4. Move information from ACT into 
the buffer pool tables. 


SBIF OMB Subpool 


SUBBEND a 


5. Store buffer sizes in the 
subpool information tables. 


SBIF 


PST 
PPsTWRKt_| 
suspmect} | PsTwRk3_| 


DLZOLI00 
Routine 


. At this point the size of the subpools 
are determined. They are allocated, 
-largest first, until the specified number 
is exhausted. Remaining DMBs 
tequiring subpools are assigned evenly 
across all existing subpools. If the 
user specified more subpools than 
necessary, an additional pool of 512 
buffer size is allocated for delete 
workspace. 


The subpool sizes are sorted so that 
the largest subpool appears first in the 
subpool information table. 











Figure 2-5.9. Buffer Allocation Routine (Part 2 of 2) 
iNPUT PROCESS 


BEP 


DoIR 
BFPLSU8D ODIRADOR 
IBEPLSUIN | ; 


DMB ———-—"¥ 6. Assign DMBs not yet assigned to 
subpools by HDBFR statements. 


SBIF Subpool 


ISUBBFHD | Director 
[suBBFSIZ _| 
ISUBDMBCT _| 





—_-——F5 A. 





SCDOBFPL. OPTBFR 










SBIF 


SUBBENO 
SUBBFSIZ OPTBFR 






Rt 


DLZOLI00 — Online tnitialization CSECT 


Extended Description 





6. Assign DMBs by corresponding control 
interval sizes. Each DMB is assigned by 
placing its DDIR position pointer into 
the subpool directory. 

It is possible to get message DLZ2621 
if there is a buffer allocation logic 
error. 


. The user specified number of buffers 
is allocated per pool; default is 32. 


A. 
B. 


Cc. 


7. Format buffer prefixes and 
allocate §/O buffers. 





OUTPUT 


BF ACBXT. 


SUBDMBCT OMBRBASN 


OMB Subpoo! 
Directory 


Get aligned core for the 
buffer prefixes. 


GETCOREA 


Storage Acquisition 
Routine 
25.7 





COREADJ 


BEPL 


BFPLPRAD 


BALR 







sie, 


GOREADS 


Get aligned core for the 
buffers. 


GETCOREA 






BALR Storage Acquistion 
Routine 
245.7 
BEFR 
Set buffer addresses in the 
buffer prefix. BFFRADDR 
Figure 2-5.4 
Step 8 or 
Figure 25.8 
Step 4 
DLZOLI00 


Routine 
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2-5.10. Build Associated DMB Control! Blocks 


INPUT From 
Figure 2-5.3 
Step 4 


.CD DMB 
SCDODLIOM DMBORG 


DACS 


DMBOANME 


DOIR DMB 
DoIRCODE | | DMBORG 
DMBPPRND 
BxT. 


DMBCINV 
OMBLRECL 
OMBACBLN 


OLZOLIOO — Oniine Initialization CSECT 


Extended Description 


1. Before loading the randomizer a 
check is made with all currently loaded 
randomizers. If one with the same 
name as the one we are loading is 
found, the entry point is resolved 
and the actual load is bypassed. 


If the randomizing module is not 
found, the DDIR is updated to 
show DMB initialization failed. 


. If buffer pool space is required, 
the size of each control interval 
rounded to the next multiple of 
512 is indicated in PSTWRK1 for 


later allocation of the buffer pool. 





PROCESS 


1. Load randomizing module if 
organization is HDAM. 


INITLODR 


BALR Module Load 


Routine 
25.6 


2. Determine if buffer pool space 
is required and set indicators. 





OUTPUT 


OMBDALGR J LDMBDAEP 





To 
Figure 2-5.3 
Step 4 


DLZOLIOO 
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Figure 2-5.11. PSB Initialization Routine (Part 1 of 2) 
INPUT PROCESS 
From 


Figure 2-5.4 
Step 4 : 


PDIR 


——F 1. initialize and relocate PSB 


pointers. 


——F 2. Relocate the PCB and JCB 
, pointers. 


JCB 


JCBSOB1 


3. Initialize all SDBs belonging 
to a particular JCB. 


4. Test for the end of the PCBs 


PSB in the PSBLIST. 


PSBXPCB 


: if not the end, return to Step 1, 


DLZOLIOO — Online Initialization CSECT 


Extended Description Routine 


4. The pointer to the PSBLIST is 
bumped to the next PCB pointer 
entry and processing retums to 
Step 1 if we are not at the last 
PCB. If the index PCB exists and 
has not been relocated return to 
Step 2. 








OUTPUT 


PSB 


PSBXPCB 
PSBLIST 


PCB 


DBPCBJCB 











DLZOLICO 


Routine 


|JCBLEVND_| 


licaspB1__| 


JCBSDBND. 





Label 





Figure 2-5.11. PSB Initialization Routine (Part 2 of 2) 
INPUT PROCESS 


PSB 
PSBLIST 


PCB: 
” 5. Connect data bases to PCBs. 
PSIL 


JCB 
JCBPRLEN 
PSILDIRN 


OSG 
DSGDMBNO 
DSGDCBNO 


6. Connect SDBs to PSDBs, 
CB 


DSG 
SDBXFNB DSGDMBNO 
IDBXFFSB 
DMB 


PSBCODE 
OMBLENTB 


SBFRTA 


FERTNAME 


DLZOLIOO — Online Initialization CSECT 


xtended Description 


5. For each DSG belonging to a PCB, PSBRELO {PCBROUT 
the offset to the corresponding PSIL 
is found by the offset in DSGDMBNO. 
The DMB number at the corresponding 
DMB to this PSIL is then moved to 
DSGDMBNO. Thus, data bases 
specifically used for this PCB are 
connected. 


. Return to Step 4 to process the 
next PCB in the PSBLIST when 
there are no more SDBs. 








7. Chain Field Exit Routine (FER) 
entries and relocate FSB pointers 
if PSB has field level sensitivity. 





OUTPUT 


DSG 


[oscocea _| DCBA 
| DSGDMBNO | 


DBXP. 


OB 


PDCA 


FSB 


FSBFERTA 


FERT 


FERTRTEP 





DLZOLI00 


Routine Label 
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Figure 2-6. Online Nucleus (Overview) (Part 1 of 2) Figure 2-6. Online Nucleus (Overview) (Part 2 of 2) 





INPUT PROCESS OUTPUT IyeUr ROGERS 
cics, DL/I 
pos or 11. Common scheduling routine. 
gram (See Figure 2-6.11) 
1. DLA ee and task 12. Common data base/checkpoint 
(See Figure 2-6.1) i tose 
(See Figure 2-6.12) 
2. paralonalgellare fag normal . Local PSB scheduling 
termin routine. 
(See Figure 2-6.2) (See Figure 2-6.13) 
3. oe . Loca PSB unscheduling 
: routine. 
(See Figure 2-6.3) (See Figure 2-6.14) 
4. ad berry writer. . Remote PSB scheduling 
gu 5 routine, 
5. Sync point record writer. eer teue 28-18) 
(See Figure 2-6.5) . Remote data base call 
. routine. 
6. blr eal request (See Figure 2-6.16) 
(See Figure 2-6.6) . Remote termination call 
; , routine. 
7. ieee haben! routine. (See Figure 2-6.17) 
8. Online error message writer. . ani rescheduling 
(See Figure 2-6.8) (See Figure 2-6.18) 
9. Online wait routine. 
‘ . Online get storage routine. 
(See Figure 2-6.9) (See Figure 2-6.19) 
10. hcpieed icone exit 20. Online free storage routine. 
(See Figure 2-6.10) (See Figure 2-6.20) 
21. Process system call routine. 
(See Figure 2-6.21) 
DLZODP — Online Nucleus DLZODP 


uExtended Description i ipti Routine: — Label. - 


DLZODP — Online Nucleus 


Extended Description Routine Label 
DLZCOM00 
DLZCOMO1 
DLZLOCOO 





DLZLOCO1 
DLZISCOO 





DLZISCO1 
DLZISCO2 
DLZISCO3 
DLZODP10 








DLZODP11 





Extended Description 





Caller 


OUTPUT 


DLZODP 


PROCSYS 





Label 
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Figure 2-6.1. DL/I Prescheduting and Task Scheduling Routines (Part 1 of 3) . Figure 2-6.1. DL/I Prescheduling and Task Scheduling Routines (Part 2 of 3) 










INPUT From PROCESS aa: OUTPUT INPUT PROCESS 
Cics/vs 
DFHPCP : a 
———————"> 5. Acquire the PST prefix and add 
DL/I Prescheduling Routine ? it to the active chain according 
to priority. 
scD PP’ a4, 1. Locate entry for current 
[scoactsa | perp: _| program in application 
control table. 
AGT 
R11 . : PPST 
———» 6. eps sade scheduling call for 
DL/I Task scheduling routine : Bieuiel 
UIB /PPSTMSDL_| 





2. Save entry registers. 


UIBREGSV 





PPST RPST 
Ton aetna 7. Acquire and initialize task PPSTCA RPSTACTA 
TCADLII 3. If this is a system call, PST storage. PST TCA 
go to step 7. == pclioc VEEERETRIAIH PSTCPGM TCADLH 


PSTRPSTA TCADLIPA 


SCDATSKC Fea 4. Check task vatue. 
: sco 
PSTRROF TCADLITC 


SCDCMTI ; 

| scocmr_ | A. Suspend task if at SCDATSKC 
SCOCMAT maximum value and go to SCDCMTI 
SEDSIND Step 9. SCDMTCT 





TCASCNS 
PSTSCDAD 
PSTSV1-7 





RPST 


UIB 
UiBRGMOT 
scoD UIBFLAG1 





B. Increment active task restuis | 
SCDCMTCT bi , PSTUIB 
count if not maximum. }PsTFLD | 
SCDDBMPS PDIR PSTFLD 
[scorr_| _poinxess | 
: PSTFLDE 
DLZODPOO — DL/! Prescheduling and Task Scheduling Routines DLZODPOO DLZODPOO — DL/I Prescheduling and Task Scheduling Routines DLZODPOO 
€xtended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


1. Nucleus identifier (*DLZNUCXX*0160)| DLZODP 5. 
and module identifier (DLZODPvrnp) 
are defined here. The level format is 
vinp; where ‘v’ is the version, ‘r’ is the 
release, ‘n’ is an additional identifica- 
tion number, arid ‘p’ is the latest PTF 
that has been applied. 


7. Storage acquired for PST and FLD 
control blocks. Acquires storage for 
RIB and RPST if UIBREMOT=1. 


This step checks the authorization of 
the CICS application program to use 
DL/I. If the program named is not 
located in the ACT an error indicator 
is tumed on in the TCA (TCADLISE). 


If the ACT search is successful the 
ACT entry address is placed in the 
system TCA and DL/I scheduling 
initiated indicator (TCADLISI) is 
turned on. 


DLZODP DLZSCHDL 
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Figure 2-6.1. DL/I Prescheduling and Task Scheduling Routines (Part 3 of 3) 
INPUT PROCESS 


UIB 


[uienecsy "> g. Retum to caller. 


9. Suspend task due to maximum 
————" task limit and record time task 
suspended. 


=: DFHEMP TYPE=ENTRY 
qa} DFHKC TYPE=SUSPEND 


10. When task resumes, stop suspend 
clock and return to Step 3. 


ScD TCA 
UIB 





= DFHEMP TYPE=ENTRY 


DLZODPOO — DL/! Prescheduling and Task Scheduling Routines 


‘Extended Description Routine Label Extended Description 


TASKSUSP 


OUTPUT 


Caller 


scD 
SCDDLIS TCADLIt 
SCDSPCNT TCADLIST 


uIB TCADLITE 





TCA 


TCADLII 


TCADLIST 


TCADLUTE 





DLZODPOO 


Routine Label 
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Figure 2-6.2. System Abnormal and Normal Termination (Part 1 of 2) 







INPUT cics/vs 
DFHSRP 
cics/vs 
DFHSTP 
D 






SCDPPFF 
SCDSIND 


3: Acquire a dummy PST (for 


PROCESS OUTPUT 


1. Enter for abnormal system 


aoe ABSWIT! 
termination. SwitcH 


2. Enter for normal termination. 
Go to Step 10 if this is the 
second time entering. 


Cics/vs 
Partition 


DLZODPO2vrnp 


PSTPREAD 
PSTSCDAD 


register save areas) to close 
the data base !og. Go to Step 
6 if log not active or if 


















journaling is active. 
éuaad DFHSC TYPE=GETMAIN eSTese 
SC TYPE=GETMA ae 
PSTSV2 
ScD 
en : | _pstsve__| 
(seopeuew }- 4. Force write of log buffers. PSTSVE 
PSTSV6 
DLZRDBLO PSTSV7 
ALR Log Force 
Write 
scD 
SCDDBLCL == 5. Close data base log. 
SCDDBLSV 
DLZRDBLO 
BALR Log Close 
Routine 
==) DETACH Macro 
DLZODP02 — System Abnormal and Normat Termination CSECT DLZODP 
Extended Description Routine Label Extended Description Routine Label 


1. Entry is made from CICS/VS System 
Recovery Program on abnormal 
termination. 


Return is back to DFHSRP. 
. Routine identifier (DLZODPO2vrnp) 


is defined here. For normal termina- 
tion DFHSTP enters this routine twice. 


. Issue message DLZ0671 if there is 
insufficient storage to terminate 
I. 


DL/ 





IDLZODP03 ;DLZODPO3 


IDLZODP02 |DLZODP02 





Figure 2-6.2. System Abnormal and Normal Termination (Part 2 of 2) 
INPUT PROCESS 


| 6. Notify MPS batch programs of 
termination and delete XECBs. 


= DLZMPCOO 


MPS System 
ABTERM Cleanup 
Fig. 2-19.8 





7. Return to CICS/VS if normal 
termination. 


ABSWITCH 


8. If abnormal termination, issue 
message DLZ0701 — Abnormal 
Termination Complete. 


TCA 9. Write formatted dump. 
= DFHPC TYPE=LOAD 


= DLZFSDPO 









BALR Formatted System 
Dump Program 
DLZODPO2 — System Abnormal and Normai Termination CSECT 
Extended Description Routine Label Extended Description 


6. MPS batch programs may be active or DLZODP02 
waiting for online MPS processing and 
are therefore notified if CICS/VS 
terminates. Online XECBs defined for 
MPS are also deleted. 


OUTPUT 
- STPRENTR 
CICS/VS 
DFHSTP 
TCA 
CICS/VS 
DFHSRP 


OLZODP 


Routine Label 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (Part 1 of 8) 
INPUT 


cICs/vs 
OFHPCP 







TCA 
TCADLII 


BFFR 















scD BFFRSW1 
SCDESECB BFFRLOCK 













RPST 


UIB 


TCA 


TCADLH het 6 
TCADLIST 


Lp 


PROCESS 


1. /O Check Routine. 


b A. 


DLZODPnn — Task Abnormal and Normal Termination Routines 


Extended Description 


1, Post logger ECB if logger was doing 
1/O for this task when ABEND occurred. 


Routine 


DLZODPO7 





If PST is acquired, 
cancel uncompleted 1/0. 





Cancel 1/0 
Step 3G 


If PST is not acquired, 
go to Step 1D. 


- Move local PDIR entry 


address to PST if this 





is extended RPSB. 
. Return to CICS/VS. 
cics/vs 
. If task is suspended for acd 
task limit, go to Step 
3uU. 
=; 
Unchain task 
Step 3U 
. Return to CICS/VS DFHPCP. 
cics/vs 
DFHPCP 
Labef Extended Description 





Figure 2-6.3. Task Abnormal and Normal Termination Routines (Part 2 of 8) 
INPUT 


cics/vs PROCESS 


DFHPCP 


2. Abnormal Termination 
Dump Entry. 

TCAABIPM -_-—— 
TCADLII 

TCADLIPA 

TCADLIPS 

TCADLPAS 

TCASYABI 


A. If PST acquired, system not 
abnormally terminating, task 
abnormally ending, then take 
IDUMP or formatted task dump. 


OR 
== DLZFTDPO 


Formatted 
task dump 


B. Return to CICS/VS 
DFHPCP. 





DBLZODPnn — Task Abnormal and Normal Termination Routines 


DLZODPnn 


Extended Description Routine Label Extended Description 


Routine Label 


2. No formatted dump is produced in DLZODP06 
case of missing PST or insufficient 

storage available. If SYSDUMP=YES 

was specified for the DOS/VS partition, 

an IDUMP is taken instead of the 

formatted dump. 


DL/I system ABEND is reduced to task 
ABENDs. In case of DL/I system ABEND, 
all DL/I tasks are abended by DL/I. For 
each task, DLZFTDP0 is called. 


DLZFTDPO0 uses the CICS dump macro 
DFHDC, that dumps DL/I blocks on the 
CICS dump data set. To get the dump on 


printer, use offline CICS program 
DFHDUP. 








CICS/VS 
DFHPCP 


OUTPUT 
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Figure 2-6.3. Task abnormal and Normal Termination Routines (Part 3 of 8) Figure 2-6.3. Task Abnormal and Normal Termination Routines (Part 4 of 8) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 















cics/vs 
DFHPCP TCA PST. 
——— D. If task’s PSB cannot be 
3. Task Termination Routine. located, go to Step M. 
ulB 7 
_— A. Write termination trace -_-— E. If remote PSB is scheduled, 
entry. issue remote TERM call. 
Trace 
er Ze 
Tea : ak an UIBFLAGT st F. If this is not a local 
TCADLII _— B. If task is already Treapun | PSB, go to Step M. 
: teaoin | [scosino2 | 
TCADLITC terminated, go to are 
Step R. PS’ ACB a __A, 
; G. Ise TERM cll t 
Hf task is a system alyzer 
are deel purge butler, 
, DMB 
—_—— C. If PST is acquired, arenes | j= 
go to Step D. 
if dd is not acquired PDIR 
mee jestsv7__| 
fac pind pease] 
maximum task limit, go 
- aw - 
XPSV3 
Task is not suspended, scD 
go to Step V. 
IsCDDLICT | 
OLZODPnn — Task Abnormal and Normal Termination Routines DLZODPnn OLZODPO1 — Task Abnormal and Norma! Termination Routine DLZODPO1 
‘Extended Description Routine Labei Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


3A. Routine identifier (DLZODPO1vmp) DLZODPONDLZODPO 
is defined here. R 


This is the entry point for CICS/VS 
if the PCP termination exit indicator 
(TCADLITE) is on and the task is 
about to be detached. 


This is the entry point for the Program 
Request Handler for a TERM or a T 
call. 


If trace is enabled, a task termination 


entry with an ID=X‘F8’ is made 
showing why termination was 
requested, and the DL/I status. 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (Part 6 of 8) 
OUTPUT INPUT PROCESS 


Figure 2-6.3. Task Abnormal and Norma! Termination Routines (Part 5 of 8) 


INPUT PROCESS OUTPUT 


PST 
K. Save number of Pl resources [rsto.rom | 
owned and dequeue program 


isolation resources. 


H. Write TERM log record to CICS/VS PPST ScD 


PPSTACT SCDCDTA 


journal or DL/I log. 


D 
PDIRCODE SCDCSABA 


TcA 
PDIRSYM SCDDBLO 


TCATCEA 


Z wOTIS 


ne1edoO jo poyPWw 


uol 


se-Z@ 


POIRUPD 


a DFHKC TYPE=WAIT 








PSTACCT SCDEXTBA 


DLZDLAOO 


Call 
analyzer 
2-8 






PSTNORO SCDREENT 
TCA 





PSTSV2 


PPST 


PPSTID TCASYAA 





1. Write a CICS/VS synchronization 
point record if using CICS/VS 


journal. (om) 


a ee J. Unschedule local PSB. 


OLZODPOS 


Write sync 
point record 


246.5 






SCOCSABA 


SCDDBMPS 2 
SCOP = 





Unschedule 
local PSB 
26.414 





DLZODPO1 — Task Abnormal and Normal Termination Routine 


Extended Description Routine Label Extended Description 


3H. A wait may be done at this time for 
the logger if it is not available. 


31. 





DLZODPO1 


Routine 


UIB 
UIBRSTAT 
UIBXSTOR 


PPST scD 


PrsToB 
PPSTCF SCDPPSTS 


PST 


|PSTPREAD 


PSTDLROM RPSTACCT 
PSTACCT 


DLZODPO1 — Task Abnormal and Normal Termination Routines 


Label Extended Description 


3K. Number of PI resources owned 
are saved for CMF Hook 
statistics. 





> L. 


M. 


N. 


Routine 





If storage acquired for extended 
RPSB, free storage. 


=) 


Return PST prefix to free 
chain. 


OLZOpP11 


Free storage 
2-6.20 






PPSTCB 


PPSTTCA 


TRM 
[TAMFREPE | 


Record DL/I call statistics. 


: ey DFHEMP TYPE=ENTRY 


DLZODP01 


Label Extended Description Routine 


NOPIDEQ 


SCD 


TRACETAB 





Label 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (Part 7 of 8) Figure 2-6.3. Task Abnormal and Normal Termination Routines (Part 8 of 8) 
INPUT | PROCESS OUTPUT INPUT PROCESS OUTPUT 


UiB 


TCA 
S. Set task termination complete 


TCA 
| a att 
Preschedule task. indicators and reouin to 
. 
Gam DFHSC TYPE<FREEMAIN freapuire_| 
cics/vs 
| 
= 


zcA ACT O. Free FLD and PST storage and 





DFHPCP 
P. If this is a system task, go to - 


Step R. 





—— —p T. If task’s PPST is found in search 
of PPST, go to Step M. 


Q. Resume any task waiting for SCD TCA : . a 
maximum task limit. pea 
U. Take a dump and go to Step O. CADCNB 
DFHKG TYPE=RESUME CADCSA 
ISCDDLIS 


ISCDSPCNT 
jam DFHDC TYPE=PARTIAL 


SCD 












TCA PDCA Boose : F 
; R. If terminating task is MPS mirror, 
TCAABIPM : SCD TCA 
ar 0 eee ony er oe #) iemnawe tik trom SUSPEND chain scpsPcnt_] freapuiPa 
TCADLIER CEFONT cleanup routine. and return to caller. ; 
TCAMPS scD 
dump 
. MPS cleanup 
2-19 
Caller 
DLZODPO01 — Task Abnormal and Normal Termination Routines : ’ OLZODPO1 DLZODPO1 — Task Abnormal and Normal Termination Routines DLZODP01 
Extended Description. Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Labe! 





TRMFREPO 
TRMSUSPA 
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Figure 2-6.4. Start-of-Task Record Writer 
INPUT : PROCESS OUTPUT 








From Call 
sone Registers 
Step 25 i 
1. Save registers and establish 
addressability to CSA and na 
aa 
TCA -F-— — > 2. If Start-of-Task record is 
already logged, go to Step 5. 
A R11 
3. Get journal control area. 


= DFHJC TYPE=GETJCA 
RU 


— 7 4. Write Start-of-Task record. CICS/VS System Log 


CICS/VS Start-of-Task 
Record 


| —__,> 5. Restore registers. 


To 
Figure 





Step 26 


DLZODP04 — Stert-of-Task Record Writer DLZODP 


Extended Description Routine Label Extended Deseripti : Routine Label 








1. Routine identifier DLZODP04vmp 
is defined here. 


. Acquire task’s JCA and establish 
JCA addressability. 


. Dummy record is written to-system 
log and CICS Start-of-Task indicator 
is set in it to mark start-of-task on 
system log. 


. Restore save area address in register 
13 and reload registers 14 through 
12 from the save area. 
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Figure 2-6.5. Syne-Point Record Writer (Part 1 of 2) 
INPUT PROCESS 


1. Save registers and establish 
addressability to CSA and 


system TCA, 
TCA 
— —P 2. If caller was DFHSPP (CICS/VS 
Sync-Point Program), go to 
Step 5. 


3. Issue a sync point. 


ey DFHSP TYPE=USER 


[ > 4. Restore registers and return. 





POIR 


POIRCODE 
PDIRUPD 






DLZODPO6 — Syne-Point Record Writer 


Extended Description Routine Label 





1. Routine Identifier DLZODPO5 vinp IDLZODPOS |DLZODP0S 
is defined here. 


5. DWE is not built for read~only PSB. 











> 5. Build a Deferred Work Element (DWE). 


Guu DFHSC TYPE=GETMAIN 





Figure 2-6.5. Synce-Point Record Writer (Part 2 of 2) 
OUTPUT INPUT PROCESS OUTPUT 


R10 


DWE ADDR 
TCA . 
TCADWLBA —_—~ —_ fp §. Insert DWE at end of DWE chain. DWE @ End of Chain 
TCASCSA 


OWESVMID 
DWESTAT 


DWESVMN. 
DWERSAA 


CICS/VS System Log 
taaicatead : , 
nc-Point Reco 7. Return R14 
OFHSPP Return 
TCA Address 
TCAZLU 


To 
DFHSPP 


From 
DFHSPP 


Ria 


R10 


RE 
> 8. Restore Task Termination 


environment. 





R13 . fig 
PST ADDR 
TCA 


Caller 
Registers TCAFCTR 


——— | 
PSTSV1 +12 
. DFHSPP Return 
* Baca 
DLZODP re 

Figure 

26.3 

Step 10 

DLZODPOS — SyncPoint Record Writer aaa 


Extended Description Routine Label 





6. Store address of DWE entry point 
of DLZODP0S in DWE for deferred 
processing by CICS/VS. 


8. Set up registers and PST save area 
to complete task termination and 
then return to DFHSPP. 
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Figure 2-6.6,. Online Program Request Handler (Part 1 of 7) 


INPUT 


TCA 


TCASYAA 
TCAVIBAQ. 





PROCESS 


(See 
note) 


1. Online Program Request Handler 


TCA 
[TcasvmoL [-———-—"> A. Set up addressability and 


indicate DL/I active to CICS/VS. 
= DFHIC TYPE=ENTER 
B. Start ‘Time in DL/I’ clock. 
jm) DFHEMP TYPE=ENTRY 
ACT : 
a 


C. If UIB is not acquired, get 
storage for system and user 
CSA UIB. 


ICSACTDA 
ICSASCNAC 
OFHSC TYPE=GETMAIN 


ISCDCSABA 
VIB 
WIBSLEN 


D. Reset UIB trace fiags and 
HLPI indicator. 


Ri 


User Parm ==> 
List 


E. Save function code in UIB 
and reset UIBRCODE. 


NOTE: DLZPRHOO is entered from the Language Interface Module, DLZEIPOO, DLZBPCOO, or OFHMIR. 


DLZPRHOO — Ontine Program Request Handier 


Extended Description Routine Label 


Extended Description 


OUTPUT 


TCA 


‘CASVMID 


Figure 2-6.6, Online Program Request Handler (Part 2 of 7) 


2. Validate data base calls. 


INPUT PROCESS OUTPUT 
cD F. If DL/1 is able to process requests, UIB 
iscpinoz__ -7.~-———? go to Step 2. 
TUIBFLAGI_| 
G. Set data base call for trace. 
Go to Step 4. 


TCA eST. 
[reapu >a, Save HLPI and language indicators [rstecr2 | 
if task is scheduled, viB 


TCADLISD 


B. If task is not scheduled, indicate 


UVIBDB 
FUIBFLAG1 | 


PPST PST 


aaa: 
PPSTMPS PSTPREAD 


TCA 
TCADLIBF UIBFLAG1 


SCDLOWER 
SCDUPPER 


Toascns | |urames | 
TCASCTR _| |UIBSCHD 
TcAUiBAG | fUIBTERM 





UIB 


UIBFUNC 
UIBRCODE 


ODLZPRHOO — Ontine Program Request Handler 
DLZPRHOO 


Extended Description 





Routine Label 






IF. 





scheduling error. Go to Step 4. 


Verify that the call parameters 
and the number of call parameters 
is valid. 


. Ifan error is detected, write 


message number and abnormally 
terminate task. Go to Step 5E. 


. Calf common data base cali 


routine. 









(ama) DLZCOMO1 
Process data 
base call 

26.12 


DLZPRHOO 


Extended Description Routine Label 





1. Module identifier (DLZPRHOOvmp) |DLZPRHOO | DLZPRHOO 
is defined here. The level format is 
vmp, where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional ident- 
ification number, and ‘p’ is the latest 
PTF number that has been applied. 









2A. 


2B. Error retumed is X‘0808’ — DB 
call when not scheduled. 


2D. Write message DLZ2601 for 
invalid number of parameters 
or message DLZ2611 for invalid 
call parameter. 


Routine Label 
TESTFUNC 
PRHDBO 
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Figure 2-6.6. Online Program Request Handler (Part 3 of 7) 
PROCESS 


INPUT 


PST 


Lrstagino_| “j- — — 


scD VIB 










A 


TCA UIB 


UIBLEN 


ACT 

POIR 

ScD 
TCASYAA 


R1 
User Parm 





List 


DLZPRHOO — Online Program Request Handler 


Extended Description 


3A. 


3B. Write message DLZ260I for 
invalid number of parameters. 


Write message DLZ261I for 
invalid call parameters. 


. Error returned is: 
X‘0801° ~ PSB not in PSB directory 
X‘0802’ — Task not prescheduled 
X‘0803’ — Task already scheduled 
X‘0806" — ise name too long or too 
ort 


eee 
SCDLOWER 
scoupPer J [uismes _| 
TCA 
TCADLIBA 

Ri 
: 
EE 


F. 


G. 


If a task is to be abnormally 
terminated, go to Step 5E. 


Go to Step 5B. 


3. Validate scheduling calls. 


Routine 


A. 





Verify that the call parameters 
and the number of call parameters 
is valid. 


If an error is detected, write 
message and abnormally 
terminate the task. To go 
Step 5E. 


Return address of UIB to user 
if UIB pointer is in parameter 
list. 


. Provide default PSB name if none 


is specified. 


If PSB name is invalid, indicate 
scheduling error. Go to Step 4. 


Label Extended Description 


OUTPUT 


UIB 





UIB pointer 


UIBFLAG1 
UIBPSB 
User PARMS 


UIBPSB TCADLPSB 


R3 


Address of 
PDIR entry 


OLZPRHOO 


Routine 


TCA 





Label 


Figure 2-6.6. Online Program Request Handler (Part 4 of 7} 
INPUT PROCESS OUTPUT 


F. 


PDIR 


PpirRoPTc [_~—_--_. > G. 


PDIRREM 
PDIRXPSB 


———+b Hu. 
PDIRCODE 
PDIRLEN 





AC PDIR 
.C 


——-> i. 
PDIROPTC 





scD 


SCDASE ——>? J. 


DLZPRHOO — Online Program Request Handier 
Extended Description Routine 


3H. Error returned is X‘0809’ — HHlegal 
MPS scheduling call. 


31. Error retumed is: X‘080S’ — PSB 
initialization failed, or 
X‘0806’ — PSB not authorized 
for program. 





if PSB NAME=SYSTEMDL, process 
system scheduling call. Go to 






2-6.21. 
UIB 
Indicate type of PSB in UIB. 
Indicate scheduling error if illegal 
MPS is rescheduling call. Go to 
Step 4. 
If PSB name is not in program’s 
ACT entry or if PSB failed to 
initialize, indicate scheduling 
error. Go to Step 4. 
Call task scheduling routine. 
(aap 
Task scheduling 
26.1 ; 
DLZPRHOO 
Label Extended Description Routine Label 
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.Figure 2-6.6. Online Program Request Handler (Part 5 of 7) 
INPUT PROCESS 


K. Call PSB scheduling routine. 


DLZCOMOO 





VIB 


[uisrcons EA ————"“} LL. If there is no scheduling error, 
go to Step 4. Set scheduled 
indicator. 


4, Handle scheduling errors. 


TCA ; ; 
nn. A. If no PST is acquired, set 


scheduling error return 
code. Go to Step 5C 


B. If PST is acquired, free 
PPST and PST. 


(ant DLZODPO1 


Free PPST/PST 
26.3 





C. Go to Step 5B. 


OLZPRHOO — Online Program Request Handler 


Extended Description Routine Label Extended Description 










OUTPUT 


PPST 
PPSTA 


TCA 


UtB 


TCADLPCB UIBPCBAL 


OLZPRHOO 


Routine 





Label 





Figure 2-6.6. Online Program Request Handler (Part 6 of 7) - 
INPUT PROCESS 


5. Process termination calls. 


scD. 


A. Call task termination routine. 


oe ae 
SCDTKTRM _j [TCADLIBA 
TCADLI _| 
TCADLITE }} ead 
RED 


Task 
Tc B. Set up return code and call 
c 


termination 
tat 
TCADLIBA UiBDB trace routine. 
TCASYAA UIBFLAG1 
ScD UIBRCODE amp DLZOLTOx 












SCDCSABA 


CSA 


lcsactoa_| 


TCA 
C. Restore registers and return. 


eee 
(exp DFHIC TYPE=EXIT 
PST 
EEA 


D. Set up ABEND code. 


DLZPRHOO — Online Program Request Handler 
Extended Description Routine Label Extended Description 


RETEXIT 
ECICNTER 


OUTPUT 


¢ 


IBFLAG1 


= 


CA 


IcAFcTR _| 


TCA 


rCASVMID | o 


Ps 
PSTABIND 


PSTTABND 


DLZPRHOO 


Routine 





Label 
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Figure 2-6.6. Online Program Request Handler (Part 7 of 7) 
INPUT PROCESS OUTPUT 


_—————» E. Terminate task abnormally. 
(eam [scoceens 


From 
DL ema DFHPC TYPE*ABEND 






CSA 


3cD 









PstTERMS? 





ISCDCSABA 





Action 
Modules 
F. Set DL/I system ABEND indicator 
and go to Step 5E to abnormally 
terminate this task. 
OLZPRHOO — Online Program Request Handler DLZPRHOO 
Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6.7. Online Trace Entry Routine (Part 1 of 2) 
INPUT From PROCESS 


Figure 
268 


fin} 1. Save registers and establish 
addressability. 


uis 
i 2. Set up PSB name, type of PSB and 
juieess >” Di /t identifier, and write first 


schedule call trace entry. 
= DFHTRACE DLI 
UIB 


- 3. Convert schedule call return 
Luisrcope [> ——— code to character code. Go to 


Step 9. 


4. Save registers and establish 





addressability. 
PST 
5. Set up DBD name or ‘“*ERROR**’ 
PCB and DL/I identifier, and write first 


|parceosp EY ————"% data base call trace entry. 


UiB 
Tuierunc | jam DFHTRACE DLI 


a 


UIBRCODE Pct 
: 6. Set up call functions, return code, 


PCB 
[ppecestc [=p and status code. Go to Step 9. 


DLZOLTOO — Online Trace Entry Routine 


Extended Description Routine Label Extended Description 


1. Trace entries are written to the 
CICS/VS Trace Table or auxiliary 
trace data set. 


4, DLZOLTO1 


OUTPUT 


ulB 


UIBTRCSV 


CATRF1 


CATRF2 









UIB 


TCATRF1 
CATRF2 










DLZOLTOO 


Routine Label 


all 





Figure 2-6.7, Online Trace Entry Routine (Part 2 of 2) 
INPUT From PROCESS 
Figure 
26.3 or 
266 


7. Save registers and establish 
addressability. 





ICA 
ircapun _| a 





p—————"%, 8. Convert reason for scheduling 
termination to character code. 


UIB 
VIBRCODE 
VIBFLAG1 


PPST 






9. Write trace entry. 


éam DFHTRACE DLI 


UIB 
fulstRcsv [-y————rg 10. Reset trace flags and restore 


caller’s registers. 


11, Return to caller. 


DLZOLTOO — Online Trace Entry Routine 


-Extended Description Routine —_—_Label Extended Description 


al . 





Caller 


OUTPUT 


uiB 


UISTRCSV 


ulB 


DLZOLTOO 


Routine 


Label 


WA] Jo A4j109d01 g—e11938]Q] posusdr'y 


Z SUINJOA enue] ZO] SA/SOC I/TG_ pr -Z 


Figure 2-6.8. Ontine Error Message Routine (Part 1 of 2) 


INPUT PROCESS 


From 
Caller 


$s TCA 


Cc 
SCDCSABA TCASYAA _. 


CSA 


CSACDTA 





TCA 


Step 4. 


TCA 
TCADLIPA _} [pPsTIND 


error message. 
PARM LIST 





I 


TDOA 


ITDOADBA 


Tt! 


DLZERMSG — Online Error Message Routine 


Extended Description Routine Label 


1. Routine identifier (DLZERMSGvmp) |DLZERMSG | DLZERMSG 
is defined here. The level format is 
vmp, where ‘v’ is the version, ‘r’ is 
the release ‘n’ is an additional 
identification number, and. ‘p’ is the 
latest PTF number that has been 
applied. 


. If there is no PST the message number 
will be in the parameter list which is 
pointed to by R1. 


. ‘Currently active’ has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(Non-scheduling calls being calls 
handled by the call analyzer and other 
DL/I action modules). 


Tasks like the MPS Batch Partition 
Controller can have a PST and can call 
DLZERMSG while not being the 
currently active task. 


1. Establish environment. 


2. If this task has no PST go to 


3. Save the ‘currently active’ status 


z 
PST eee 
and indicate this is no longer 
the currently active DL/I task. 
PST 
Z 


4. Acquire storage and construct 


5. Write message to TD destination 
CSMT and. system operator console. 


OUTPUT 


Caller 
R13 Registers 


[esa] 
R12 


TCA User Area 


RE 


System TCA 


RO PPST 


PPSTIND 
scD 
ISCDCOTA 

TDOA 


RMSGADT 
RMSGSAV 











OLZMMSGT 
Message Text Construction 


4 


GENIORB WTODATA 


EXCP 
DFHTD TYPE=PUT 


DFHSC TYPE=FREEMAIN 


DLZODP 


Extended Description Routine Label 


Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation, 
(for example, I/O) PPSTACT is reset 
by DLZERMSG for the duration of 
the write because there can only be one! 
task marked as ‘currently active’ by 
definition. 


. The GETMAIN output buffer is 
needed by CICS/VS transient data 
services and IORB required by 
DOS/VS EXCP. 


DLZMMSGT is used to construct text 
for messages with message numbers 
from 1 — 255. 











“Figure 2-6.8. Online Error Message Routine (Part 2 of 2) 
INPUT PROCESS 








cD SCDEXT 


SCDOBLOP 


Caller 


Registers A 
Ce feos 


PST 
PSTPREAD 





DLZERMSG — Online Error Message Routine 


Extended Description Routine Label 





6. Since contro! was lost during the 
1/O another job may have activated 
the logger. To assure serialization, 
this routine must wait until the 
logger is done. 


. Reset ‘currently active’ status to 
the value it was on entry. 











OUTPUT 


> 7. Wait for the logger if the 
log is open and busy. 


=m DFHKC TYPE=WAIT 


TCATCEA 


[> __ 8. Restore original environment. PPST scD 


| PPSTIND — | Pscocota | 





To 
Caller 


DLZODP 


Routine Label 
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Figure 2-6.9. Online Wait Routine (Part 1 of 3) 


INPUT 


From 
Caller 


scD TCA 


ISCDCSABA. CASYAA 


CSA 







ECB 


ddress 


R3 
ECB 
Address _—— 


ScD PDCA 


SCDPDCA PDCADECB 


SCD PST 
= 
SCDODBLOP L 





DLZOWAIT — Online Wait Routine 


Extended Description 


2. Routine identifier (DLZOWAITvmp) |DLZOWAIT | DLZOWAIT 


is defined here. The level format is 
vip; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. 


. Anon-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL, password) to 
schedule itself so that it may issue 
system calls: CMXT, STRT, STOP, 
TSTR, and TSTP. 


‘Currently active’ has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(non-scheduling calls being calls 
processed by the call analyzer and 
other DL/I action modules). Since 
CICS/VS can schedule another DL/I 
task during a CICS/VS operation 





PST 
pS, . 2. Save registers and establish 
R2 


PROCESS OUTPUT 
1. lf CMF hook request, go to Step 8. 
If suspend request, go to Step 11. 
If resume request, go to Step 13. 
User Save Area 


aller 
Registers 


addressability. 


PPST 


TCA 
CATCEA 
sco 


3. If ECB is not posted, indicate task 
not ‘currently active’ and issue 
CICS/VS 1/O wait. 


TCA 


CATCEA 


L. 4. Wait for formatted dump if buffers 
are being dumped. Return to Step 3. 


ad DFHKG-TYPE=WAIT 


5. Wait for the logger if the log 
is open and busy. 


== DFHKC TYPE=WAIT 


6. Check if DL/I abnormally 
terminated. 


=) DFHPC TYPE=ABEND 


OLZOWAIT 


Routine Label 


(for example, 1/0) PPSTACT is turned 
off until return is made to the caller of 
DLZOWAIT because there can only 
be one task marked as ‘currently 
active’ by definition. 


. Serialization of the logger resource is 
another job of the online nucleus. 
Since control was lost during the 
wait, another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. Retum is then made to Step 2 
to recheck that this task’s ECB is 


posted and to reissue the wait again 
if it isn’t. 








SCDCDTA 





Extended Description Routine Label Extended Description Routine Label 


OWAITRET 





Figure 2-6.9. Online Wait Routine (Part 2 of 3) 


INPUT PROCESS 
User Save 
TCA Ayres y +e . 
eatae > 7. Restore original environment. 
Registers 
8. Return to caller. 
scD CSA 
9. Save registers and establish 
Ton addressability. 
: 10. Write indicated CMF hook 
record. 
Sem oor ewe Tye e-entay 
11. Return to caller. 
12. Save registers and establish 
addressability. : 


13. Suspend current task. 


<Guep DFHKC TYPE=SUSPEND 





scp. PDCA 
CS +14. Wait for formatted dump if 
EDCADECE buffers are being dumped. 
Return to Step.3. 


Gay DFHKC TYPE=WAIT 


DLZOWAIT — Online Wait Routine 


Extended Description 


7. Reset non-scheduling task to 
currently active status as it 
was on entry. 
DLZCMFHK 
DLZSUSP 


DLZRESUM 


OUTPUT 


PPST 


User Save 
Area 


Calter 
Registers 


4 


CA 


CATCEA 


DLZOWAIT 


Routine 





scD 


Label 
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Figure 2-6.9. Online Wait Routine (Part 3 of 3) 
INPUT PROCESS 


scD 


PsT 
— — pp 15. Wait for the logger if the 


log is open and busy. 
SCDEXT 


DESECB 
[feoesecs |] = OFHKC TYPE=WAIT 





= 16. Check if DL/I abnormally 
pled 


(==) DFHPC TYPE®ABEND 


User Save 

TCA Area 

freapun _] '————r¢° 17. Restore original environment. 
registers 


18. Return to caller. 





DLZOWAIT — Online Wait Routine 
Extended Description Routine Label Extended Description 


15. See “Extended Description” 
comment for Step 5. 


16. OWAITRET 


Caller 


OUTPUT 


TCA 


ITCATCEA | EA 


ScD 


PPST 
SCDCDTA 


DLZOWAIT 


Routine Label 
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. Figure 2-6.10. VSAM Asyncronous Exit Processor 


INPUT From PROCESS 
VSAM 
Module 
scD IKQIOA 


SCDCSABA J 


CSA 





scD SCDEXT 


SCDEXTBA SCDESECB 





is open and busy. 


I 


1. Establish environment. 


anemeed 
2. Start CMF 1/0 wait clock. 
(aa DFHEMP TYPE=ENTRY 
iY“, 3. Indicate the non-scheduling task 
ee 


CICS/VS wait. 


OUTPUT 





> TCA 
TCATCEA 


DFHKC TYPE=WAIT 


5. Stop CMF 1/0 wait clock. 


not ‘currently active’ and issue 
es DFHKC TYPE=WAIT ; 
4. Wait for the logger if the log 


. = DFHEMP TYPE=ENTRY 
TCA 


—— —p 6. Return to VSAM. 


DLZOVSEX — VSAM Asyncronous Exit Processor 


Extended Description Routine Label 


1. Routine identifier (DLZOVSEXvmp) |[DLZOVSEX [DLZOVSEX | 


is defined here. 


. Anon-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SSYSTEMDL, password) to 
schedule itself so it may issue system 
calls: CMXT, STRT, STOP, TSTR, 
and TSTP. ‘Currently active’ has a 
special meaning. There may be many 
DL/I tasks active at this time. There- 
fore, DL/I uses a bit (PPSTACT) in 
the PPST to make it easy to spot (in 


a dump) the single DL/I task that is 
currently using the call analyzer and 
other DL/I action modules. 


Since CICS/VS can schedule another 
DL/{I task during a CICS/VS operation 
(for example, 1/O) PPSTACT is turned 
off until return is made to the caller 
of DLZOVSEX because there can only 
be one task marked as ‘currently 
active’ by definition. 


PPST scb 


PPSTIND SCDCDTA 


To VSAM 
Module 
1KQIOA 
DLZODP 
Extended Description Routine Label 


4. Since control was lost during the 
wait another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. 


. Reset non-scheduling task to 
‘currently active’ status as it was 
on entry. 
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(NPUT 


UIBICODE 


OLZCOMOO0 — Common PSB Scheduler 


Extended Description 


From 


5 Figure 


Figure 26.11. Common PSB Scheduler (Part 1 of 7) 









PROCESS OUTPUT 
ulB 
1. Save registers. a | ee 
2. Initialization. ee 
IUIBRCODE _| 
A. Zero return code. JUIBXRPSB _ | 
B. Reset XRPSB bit. 
3. If remote PSB, go to Step 10. 
4. If extended RPSB, go to Step 16. 
5. Local PSB. Indicate PSB 
TYPE=LOCAL for trace and Peres] 
process call. 
6. Local PSB scheduling. 
jam) 
Local scheduter 
26.13 
7. If scheduling is successful, go to 
Step 9. 
8. Error handling. 
reaeoe 
A. Set response code. [uisrcove | 
DLZCOMOO 
Routine Label! Extended Description Routine 


Figure 2-6.11. Common PSB Scheduler (Part 2 of 7) 


INPUT 


vExtended Description Routine Label 


PROCESS 


B. Zero PCB list address. 
C. Go to Step 35. 
9. Successful local. 


ulB 


UIBIPCBA = 


A. Set PCB address list. 


B. Go to Step 32 (Log PSB 
scheduled). 


Remote PSB scheduling 


10. Indicate PSB TYPE=RPSB. 


R3 PST 
: (ime tera) ee 11. Remote call preparation. 


12. Remote PSB scheduling. 


ISC scheduler 
2-46.15 
vis 


Tuisicove. 13. If remote PSB scheduling 
MUCODE is successful, go to Step 


15, 


14, Error handling. 
ulB 


[uisicone [|] A. Return remote error. 


DiLZCOM00 — Common PSB Scheduler 


Extended Description 


OUTPUT 


via 


UIBPCBAL 


UIs 


UIBPCBAL 


ulB 


UIBRCODE 
UIBPCBAL 


DLZCOM00 


Wal Jo 4319d01g—]¥U9}8],] posussry] 


Z woes 


uoneiedg Jo pomp 


6b -7 


Figure 2-6.11. Common PSB Scheduling (Part 3 of 7) 
INPUT PROCESS 


B. Zero PCB list address. 


C. Go to Step 35 (return to caller}. 


15. Successful remote. 


UIB 


luigiecaa [2 A. Return PCB list address. 


B. Go to step 35 (return to caller). 


16. Extended RPSB scheduling call. 


A. Initialize for extended 


RPSB scheduling. 
RPDIR PDIR 
———"> __ B. Compute local PSB PDIR 
scp entry address. 





17, Local PSB scheduling. 





18. If successful, go to Step 20. 


DLZCOMO0 — Common PSB Scheduler 


Extended Description Routine Label 





DLZCOMOO 


Extended Description 


Routine Label 
DLZCOMO00 — Common PSB Scheduler 
Extended Description Routine Label 


Figure 2-6.11. Common PSB Scheduler (Part 4 of 7) 
OUTPUT INPUT : PROCESS 


19. Error handling. 


uIB 
i A. Set response code. 
B. Zero PCB list address. 
UIB C. Go to Step 35 (return to 


UIBPCBAL caller). 


20. A. Save local component 
PDIR entry address. 


B. Save local PSB PCB list 


a 
ae 
address. 
C. Indicate local PSB 
scheduled. 
21. Remote call preparation. 
A. Set status extended 
RPSB call. 
nest B. Set PSB for ISC use. 
Ses 


22. Remote PSB scheduling 








DLZIScoo 


ISC scheduler 
26.15 


Extended Description 


OUTPUT 


UIB 


UIBRCODE 


VIB 


UIBPCBAL 


RPST 


RPSTXPSB 


RPST 
RPSTXPCB 


_UIB 


UIBSTAT 
VIB 
UIBXRPSB 


PST 
PSTPSB 


DLZCOMO0O 


Routine 


Label 
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Figure 2-6.11. Common PSB Scheduler (Part 5 of 7) 


INPUT PROCESS 
ulB 
JuIBICODE | — — —p 23. If remote PSB scheduling is 
successful, go to Step 27. 
24. Error handling. 
ulB 
——-—p> =A. Return error code. 


B. Set PCB list address 
to zero. 


C. Reset XRPSB flag. 


. Indicate local PSB 
unscheduled. 
RPST 
[Restxpss [=> ~—E.: Restore local PSB PDIR 
entry address. . 


25. Unschedule local PSB. 


26.14 
26. Go to Step 35 (return to 
caller). ; 
27. Successful remote. 


A. Indicate remote PSB 
scheduled in status 


byte. 


DLZCOM00 — Common PSB Scheduler 


Extended Description Routine Label Extended Description 


UlB 
UIBRCODE 
UIB 


IBPCBAL 


UiB 


UIB 


JHE 


UIB 


DLZCOMO0O0 


Routine 





Figure 2-6.11. Common PSB Scheduler (Part 6 of 7} 


INPUT 


UlB 


| UiBH pcBA _| - e 


RPST 


RPSTXPCB 


R6 


Storage 
Address os 


DLZCOMO00 ~ Common PSB Scheduler 


Extended Description 


27C. ICB addresses in local copies of 
remote PCBs are used to determine 
if a data base call is to a local or 
remote PCB. 





PROCESS OUTPUT 


BPS 


B. Save remote PSB PCB 





list address. 
DBP 

C. Clear JCB addresses in 

PCBs. 

28. Extended RPSB storage 

acquisition. 
A. Calculate storage required 

for remote PCB addresses. 
B. Get address of local PCBs 

list. 
C. Calculate storage required 

for local PCB addresses. 
D. Compute total storage 

required. 
E. Acquire storage. 

| DLZODP10 —_‘| 
Online Storage 
Acquisition 
_ UIB 
F. Save address and status, uieiPcea_| . 
DLZcomoo 
Routine Label Extended Description Routine 


DBPCBICB 





RPstRPCcB 


Label 
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Figure 2-6.11. Common PSB Scheduler (Part 7 of 7) 
INPUT PROCESS OUTPUT 








RPDIR RPST 
— — —}> 29. Build PCB address list for 
extended RPSB. 
ulB UB 
wieiecea [-y————P 30. Return schedule call successful. UIBPCBAL 
IBIRCODE 
31. Reset PDIR register to local 
PSB entry. 


32. Write scheduling log record. 


scD 
Tscoinp2 +4 — — — > 33. Write open log record. 


34. Log schedule call. 
35. Schedule call return. 


fusnessy [1 ——— JP A. Restore registers. 


B. Return to Register 14. 


R14 


OLZCOMO00 — Common PSB Scheduler DLZCOMOO 


Extended Description Routine Label Extended Description Routine Lebel 
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Figure 2-6.12. Data Base Call Handler (Part 1 of 6) 


{NPUT PROCESS 
From 
Figure 
266 
1. Save registers. 
UIB 
juisFUNC }—— +- —JP 2.A. If checkpoint call, go to Step 13. 
LUIBELAG?_| ! 
L B. If GSCD call, go to Step 40. 
t 
BREMOT I C. If extended RPSB scheduled, 
\ go to Step 8. 
L D. If remote PSB scheduled, go 
to Step 6. 
3. Pass call to Call Analyzer. 
ee step 36. 
PST 
lpstcopes_| — “~ ““8'~4. Reset active task indicators. 
UIB 


uisnecsy_ [>> 5. Restore registers. 


DLZCOMO1 — Data Base Call Handler 
Extended Description 
2. UIBREMOT is set during task 


scheduling. 


UIBREMOT?= if not scheduled to a 
remote PSB. 


UIBXRPSB set by scheduling an 
extended PSB. 


DLZPRHO0 sets UIBFUNC. Check- 
point call to RPSB is an implicit 
syncpoint call. 


Routine 





Extended Description 


Caller 


OUTPUT 


UIB 


UIBREGSV 


scD 


SCDCDTA 


PPST 
lppsTact _| 


DtLZCOmMoi 


Routine Label 





Figure 2-6.12. Data Base Call Handler (Part 2 of 6) 








INPUT PROCESS OUTPUT 
PST PST 
LY ————¢. 6. Point PSB to remote PSB and pass PSTPSB 
RPST call to remote data base call 
interface routine. 
a= 
Isc data 
base call 
2-6.16 
[PSTRPSTA | 7. Go to Step 5. 
PSTLIPRM 
8. If data base call with local PCB, 
DBPCE. go to Step 11. 
: 
PST 
JRPstRess_ [> 9. Point PST to remote PSB and pass 
call to-remote data base call 
interface routine. 
DBPCB 
10. Zero JCB address and go to Step 5. : 
pest me Pst 
psTxPss [-~————.g 11. Point PST to local PSB and pass 
call to Call Analyzer. ; 
= Step 35. 
DLZCOMO1 — Data Base Cail Handler DLZCOMo1 
Extended Description Routine Label Extended Description Routine Label 


6. 


8. If JCB address is not zero, 
PCB is assumed to be a local 
PCB. 
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Figure 2-6.12, Data Base Call Handler (Part 3 of 6) Figure 2-6.12. Data Base Call Handier (Part 4 of 6) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
12. Reset active task indicators sich 
and go to Step 5. ae on 17. If CICS/VS journal is being used, issue 
PPST [SCDIND | sync point. ; 
[scpntoct | 

med [ orzoneos | 

13. A. If extended RPSB is scheduled, Syne point 

go to Step 24. oe red 


PSTSV2 


UIBREMOT 





B. If remote PSB is scheduled, 


go to Step 20. scp ‘ 7 
a 18. If program isolation is being used, 


release P! resources. 
sas 


ot DLZPUR 


14. Pass call to Call Analyzer. 
PPST "PST 


a) «> 35 
cD pee 19. If not an MPS task, reset CHKP 


15. Reset active task indicators. muieatey mid go; t0 eer: 
PPST 
a , 
t _— 20. Issue CICS/VS sync point. 
16. If error during CHKP, go to used 












PSTSABND Step 5. ScD 
DLZODP05 


PSTPCT2 SCDCSABA j= 
Syne point 
exit routine 
6.5 





PSTCHKP 


PST PST 








21. Point PST to remote PSB and 
| pstrpsta || PSTPSB 
ApET reschedule remote PSB. 
26.18 
ws 22. If PCB address list = 
[_uisicope Fy————. > “TF OFFON, Zero een 
UIBPCBAL 
23. Go to Step 5. 
> 24. If CHKP call with remote PCB, 
DLZCOMO1 — Data Base Call Handler DLZCOMO1 Ser substitute local PCB. PSTLIPRM 
| PSTLIPRM | 
DBPCB 
Extended Description Routine Label Extended Description Routine Label 





13. RPST 


RPSTXPCB 
14. CHKP call with local PSB | nest xecs 25. Pass call to Call Analyzer. 
scheduled (emp step 35 


scD 


26. Reset active task indicators. 


PPST 


PPSTIND 


PPSTACT. 





DLZCOM01 - Data Base Cali Handler DLZcOM01 


Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6.12. Data Base Call Handler (Part 5 of 6) Figure 2-6.12. Data Base Call Handler (Part 6 of 6) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
PST 
-— 27. If ABEND requested, go to VIB — — § 37. Point PST to local PSB and pass 
Step 5. call to Call Analyzer. 
| 2 
Sete scp i 
PST — — & 28. iferror on local CHKP set status na 
in user’s PCB and go to Step 5. RPST 
OBPCB * 
[psPcBcB PST User 1/0 Area 
: 38. If not MPS task, move data to a | 
NS user’s I/O area. 
29. Substitute remote PSB address ; [~ 
DBPCB 
in PST parameter list and issue 
CICS/VS sync point. MIB 


PST 


: UIBFLAG1 —J 
PaTRPSTA 7 ewes | 
RPST (ant OLZODPOS 
RPSTRPCB 4 


Sync point 
exit routine 
26.5 








39, Return to caller. 


PST Calier 
—— 40. Store address of SCD and PST 
in PST work area and set up 


ScD 30. If program isolation is being data move parameters. 
used, release P! resources. 
PST deux DLZPUR 
M 
ory 


PPST 
Lessee: 31. If not an MPS task, reset CHKP 


PST 

fee PSTPCT2 

indicator. : 
PSTCHKP __| 
PST. 





41, Go to Step 38. 





PST . Point PST to remote PSB and 
reschedule remote PSB. 
RPST 
oe | 
4 26.18 DLZCOMO1 — Data Base Call Handier DLZCOM01 
ulB uiB 
[uisicone OJ? —8- pled srt tv address list Extended Description Routine Label Extended Description Routine _Label 
i DBPCB : 
RPSTRPCB — 34. Zero JCB address of remote PCBs , 
and go to Step 5. ° Veeciaceiis 
; DBGSCD 
PDCA nee : scb 
es 35. Wait if buffers are being dumped 
PST ISCDESECB | or logger is busy. 


PPS 


PSTSV1 SCODBLOP 


PPSTIND __} 


” [scppBto = DLZOWAIT lppstact _| 
- Iscpextea - Ty ontine wait 
269 


‘ei a 36. Set active task indicators. 
DLZCOMO1 — Data Base Cali Handler DLZOCM01 
Extended Description Routine —Labet Extended Description Routine — Label 


DBANLYZ 
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Figure 2-6.13. Local PSB Scheduling Routine (Part 1 of 4) 
INPUT 


fe 





PDIRCODE 
PDIROPTC 


PDIRSCHD 


:PDIRUPD 









“PDIR ODIR 


PDIRSILA oOpIRCODZ 
PSIL DDIREXCL 
PSILDIRA tx 












ODIR PSIL. 


DDOIRCODE PSILLNGH 
DDIRNOSL 





eee 





DLZLOCOO — Local PSB Scheduling Routine 


Extended Description Routine Label 


3. 


4. Error retruned is X0CO1’ 
(DB stopped). 





ee 


PROCESS OUTPUT 


PST 


1. Save caller's registers. 


2. If PSB in conflict with itself, 
go to Step 15. 


3. If the required DMB is held 
exclusively, suspend task. 


Gem) [scxostsr 


Suspend for 
Intent conflict 


4. If the required DMB is stopped, 
set up scheduling error. Go to 
Step 12. 









scD * UIs 





5. Check for intent conflict with 
higher priority tasks that are 
suspended for intent conflict. 


em SCHDCKNT 


DLZLOCOO 


Extended Description Routine Label 


ULE 


Figure 2-6.13. Local PSB Scheduling Routine (Part 2 of 4) 


INPUT PROCESS OUTPUT 
PDIR SCO 6. Check for intent conflict with 
PDIRLEN scheduled PSBs. 


PDIRSCHD 





scD 


[ 




















DDIR 
7. Reset intent conflict flags, set DMB 
PDIR exclusive use count, and set update 
PDIRSILA use count. 
PPST 
# | PPsTIND | 
PPSTIND 
PDIR 
lpoinoptc [2 > 8. If PSB must be duplicated, duplicate 
the PSB. 
Duplicate PSB 
DBP JCB DBP POIR 
| DePCBCB | [scemxeu_] [pepcaLKy | [Poinortc | 
PDIR PST _——. 9. Schedule the PSB. PSB IPDIRSCHD_| 
via 
7 
JCB spe 
[SDBEND _| 
| scespa1_| SDBPS: 10. — = 
8 2 | Connect segment descriptor blocks [(soensos J 
: . BFSOB SDBNSDB 
PCB DMB (SDB) to physical SDBs. 
Cecoenp ] [owsrspe 


DLZLOCOO 


DLZLOCO0 - Local PSB Scheduling Routine 


Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6.13. Local PSB Scheduling Routine (Part 3 of 4) 
INPUT PROCESS 















PPST 


PST 


PSTPREAD 


ScD 


SCDNAVID 






11. Set hashed task ID in PST 
and increment. 





PST 


PSTSV1 


12. Restore entry registers. 


13. Return to caller. 


14, Segment intent check 
subroutine. 





DDIR PDIR 


PDIRSILA 





Figure 2-6.13. Local PSB Scheduling Routine (Part 4 of 4) 
OUTPUT INPUT 





PST 


FPDIRLEN | 


PDIRPSBL 


egrmeccmmmnaarely, 


PROCESS 


B. Start measuring time suspended for 
intent conflect and suspend task. 


a) DFHEMP TYPE=ENTRY 
(axa) DFHKC TYPE=SUSPEND 


C. Stop measuring time suspended for 
intent conflict and go to Step 2. 


16. Create Duplicate PSB subroutine. 


A. Acquire storage for duplicate 
PDIR, PSB, and work areas. 


OUTPUT 


TCASCIB 
TCASCNB 


ScD 


SCDPDUP 
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. Copy original contents of PDIR and 
PSB into duplicate locations and 
relocate pointers. 


PSBNDXWK 
TCA 


TCASCSA 


PDIRCOD 


; | PSBSEGWK_ | 
Restore registers. PDIRDUP! 


PSBXIOW! 
PSBXPCB 


PDIROPTC] PST 


PDIRSCHD | } PSTPSB 


Return to caller. 
C. Return to caller. 





Caller 


PDIR PPSTNSDOL 
PDIRADOR PPSTS! 
PDIROPTC PSB 





A. If task is in conflict with 
an MPS task, set up 
scheduling error. Go to 


tS 
So Fi 
PSIL A. Compare segment intent PDIRZWA TCASCTR 
bits for indicated 
Pali 
| PSILLNGH | ¢ Online storage 
uisiti 
B. Ifa conflict is detected : 619. ? 
me go to Step 15. PSBIOAWK P PDIRADDA 
| b 
“D. 
15, Task SUSPEND subroutine. 
DDIR 
_——— [scoTwei _| 


PDIRSCHD PSBPST 


scD Step 12. 





DLZLOCOO — Local PSB Scheduling Routine OLZLOCOO 


DLZLOCOO — Loca! PSB Scheduling Routine DLZLOCOO 


Extended Description Routine Label Extended Description Routine Labet Extended Description Routine Label Extended Description Routine Label 


16. 


16B. For read only or update with 
program isolation. Duplicate 
PSBs are identified by the PDIR 
indicator PDIRDUPL. 
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Figure 2-6.14. Unschedule Local PSB Routine (Part 1 of 2) . Figure 2-6.14. Unschedule Local PSB Routine (Part 2 of 2) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Unschedule local PSB CSA PDIR . PDIR TCA 
PST csascnac | [poincooe | fo & Free duplicate PSB. PDIROPTC 
1. Save caller's registers. 





4 


13] 


PDIRSCHD | | TCASCTR 
PDIRDUPL . en} DFHSC TYPE=FREEMAIN : 


jprstio | 


scD 


DDIRCNT 


LOWID ar 


—— Sf 6: Restore entry registers 


7. Return to caller 





PPSTLEN 


SCDEXTBA 
SCDPPSTS PSTTSKID 





2. Update hashed task ID. 


3. Reset intent conflict flags, exclusive use h Caller 


5 

ee 
count, and update use count, 
PSILDIRA DDIRCODE 

pees 





ScD 
PDIR 


OMB JCB 
PSB 
SB 
PDIR 
SDBPSDB 
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‘ DLZLOCO1 
OLZLOCO1 - Unschedule Loca! PSB Routine DLZLOCO1 OLZLOCO1 - Unschedule Local PSB Routine 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine 


Label 
2. The lowest active identifier is TRMDUPCK 
maintained in the SCD. DL/I be 
Space Management uses the low 
and high identifiers to exclude 
free space belonging to active 
tasks from reuse. 
+ DB stopped. 
PDIRCODE=X ‘0C01’. 


Extended Description Routine Label 
= 
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Figure 2-6.15. Remote PSB Scheduling (Part 1 of 2) 


INPUT 


Rt 

RPST 
Address 
RIB 

ScD 
SCDUPPER 
TCA 
TCADLIBA 





DLZISCO0 - Remote PSB Scheduling 


Extended Description 


PROCESS OUTPUT 
From 
Figure 
26.11 
PSB scheduling routine 
PST 


1. Build parameter fist for scheduling call. 


PSTSV1 


RPST 
RPSTLEN 


TWA 
2. Inklalis remote rterface bloc RS} _ 
vIe . Initialize remote interface . rieisc 


XcB 










RIBUPPER 


3. If ISC module is available, start 
measuring time in remote system. Go to 
CICS/VS ISC. 


(aux) DFHEMP TYPE=ENTRY 


CICS/VS ISC 
module 


CSADISAC c= 
CSAOPFLA 


RIBFCTR ay certs 4. 


If schedule call was not successful, stop 
measuring time spent in remote system. 


Go to Step 6. 


anh DFHEMP TYPE=ENTRY 


DLZ1Sscoo 


Routine Labe! Extended Description Routine 


RPSTISC1= (X‘00’) 
RPSTISC2=A (RIB) 
RPSTISC3=A (User PARM list) 
RPSTISC4=A (PDIR entry) 





Figure 2-6.15. Remote PSB Scheduling (Part 2 of 2) 


INPUT 


RIBOLTR 
RIBFCTR 


RIBPCBAL 


di 






Vt 






RIB 
RIBCALL 


J 
ee 
=| 
=e 


RIBLNKNA 
RIBLNKSH 


jestsv3__ 





OLZISCOC - Remote PSB Scheduling 
Label! Extended Description 


6A. ABEND if PARM list is invalid. 
function is invalid, XECB cannot 
be found, PSB cannot be 
rescheduled following a check- 
point, or internal error. 


6C. Write message DLZ0331. 


Routine Label 





PROCESS 


5. Return remote PCB address list and 
return code to caller. 


6. Remote scheduling errors. 
A. Set up return code. 


B. If serious error, request ABEND 
after message. 


C. Write message. 


—_ 









OLZERMSG 


Write message 
246.8 


Extended Description 


Calter 


OUTPUT 


UIB 


UIBICODE 


PSTABIND 


PSTTABND 


PST 


PSTERCOD 


DLZISCOO 


Routine 


RIB 
AIBFCTR 
TCA 


] TCADLI | 





Label 
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Figure 2-6.16. Remote Data Base Call Routine (Part 1 of 2) 


» INPUT 
From 
Figure 
26.12 
Ri RPS] 


. meme 5 A Build parameter list for data base call. 


PST Rib 


—————"S, 3. Compute PCB index. 


CSA 
CSAOPFLA 


Rip 


OLZISCO1 - Remote Data Base Call Routine 
Extended Description 


RPSTISC1=A (X‘04’) 

RPSTISC2=A (RIB) 

RPSTISC3=A (User 
PARM 


list) 
RPSTISC4=A (PDIR 
entry) 


Routine Label 


PROCESS acca " OUTPUT 


Remote data base call 
processing. 


2. Initialize remote interface block (RIB). 


PST 


4. If PCB address is invalid, go to Step 10. 


5. Start measuring time in remote system. 
Go to CICS/VS ISC module. 


(amp OFHEMP TYPE=ENTRY 
Module 
6. Stop measuring time if call was not 
successful. Go to Step 10B. 


= _ DFHEMP TYPE=ENTRY 


OLZISCO1 


Extended Description Routine 


ISCINDEX 
ISCBALR1 





RIB 


pstosrces | [RIBINDEX 


Label 





Figure 2-6.16. Remote Data Base Cali Routine (Part 2 of 2) 
INPUT sx PROCESS 


7. Uf call was not an MPS call, move data 
into user’s IOAREA. 





8. Return code. 





9. Return to caller. 
10. Remote data base call errors. 


A. Write message. 


DLZISCOO 





B. Abnormally terminate task. 


C. If function is invalid, return ‘AD’ 
status in PCB. 


D. Write message. 


E. Abnormally terminate task. 


DLZISCO1 - Remote Data Base Cali Routine 


Extended Description Routine Labe! Extended Description 


8. ISCRETO1 
10A. Write message DLZA76I. 
10D. Write message DLZ0331. 


OUTPUT 


PST 


PSTSEG 
PSTSEGL 


ulB 


[ulsicope _| 


PST 


PSTERDT1 
PSTTABND 


PSTABEND 


PST 
PSTERDT1t | 


PSTTABND 


DLZISCOt 


Routine 


DBP 


DBPCBST 





Label 
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Figure 2-6.17. Remote Termination Call Routine 


From 
INPUT Figure 2-6.3 gm PROCESS 
Yq. 1. Build parameter list for TERM call. 
ed 
~~» 2. Set sync point requirement flag. 


UIBFLAGT 
CAZLUWT 
3. Start measuring time spent in remote 
, panei sat 


system. Go to CICS/VS ISC module. 








Geum oven TYPE=ENTRY 


‘ cles/vs Isc 
module 





PST 

‘[estsvi_b->}———9 4. Stop measuring time spent in remote 
system. Return to TRMFREPP in 
DLZODP. 


‘DLZISCO2 — Remote Termination Calt Routine 
Extended Description Routine Label Extended Description 


1. RPSTISC1=A(X'08’) 
RPSTISC2=A(RIB) 


OUTPUT 


RPST 
RPSTISC1 
RPSTISC2 


RIB 


RiBiSCO 
IRIBSYNC _| 


MPSTSVI 


DLZODP 


DLZISCO2 


Routine Label 
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Figure 2-6.18. Remote Rescheduling Routine (Part 1 of 2) Figure 2-6.18. Remote Rescheduling Routine (Part 2 of 2) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Miele CSA 63 
"= eee . Start measuring time spent in remote 
26.12 
‘EE s . Go to CICS/VS ISC module. 
Checkpoint call. ystem 


pst Gap DFHEMP TYPE=ENTRY 
1. Write DL/I checkpoint taken 


Ee 
message. em) (or 
os) CICS/VS ISC 
Write Module 
id) 
weapon | 
PST 
gD 
aE 





RPST = hia P47. Stop measuring time spent in remote 


2. Build parameter list for shart hie ‘checkpoint indicator if no 
scheduling call. 7 eckpoint error. 





PST RIB 
ulB 
[uisicone_] 





8. Indicate sync point not requested 
and checkpoint call in progress. 


RIBSYNC 8. Return to caller. 















3A SCD —_ — 4. Go to CICS/VS ISC module, sue ns 
9. Set error code if checkpoint error occurs. PsTABIND |] 
oF — | PSTERDT! | 
cics/v8 80 om 
madule Write message 
RPST 26.15 
5. Build parameter list for 10. Abnormally terminate task. 
reschedule call. 
DLZISCO3 - Remote Rescheduling Routine DLZISCO3 DLZISCO3 - Remote Rescheduling Routine DLZISCO3 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Labet 











. Write message ISCKPERR 
DLZ1i051. 

. RPSTISC1=A (X’ 08’) 
RPSTISC2=A (RIB) 

. RPSTISC1=A (X‘00’) 
RPSTISC2=A (RIB) 
RPSTISC3=A (CHKPSCHD) 
RPSTISC4=A (PDIR entry) 
CHKPSCHD is: 

DC X‘80" 
DC AL3 (‘PCB’) 
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Figure 2-6.19. Oniine Get Storage Routine 


INPUT PROCESS 
From 
Figure 
2-46.11 or 
26.13 
Online get storage routine. 


R6 
[Storage Size [=_y———— 1. Increase requested length for 


tatus information. 
cca tf gS 
a1] __ 2. Issue CICS/VS GETMAIN if 
GETMAIN size is less than 


65,521 bytes. 


== DFHSC TYPESGETMAIN 


3. Issue GETVIS if GETMAIN is 
greater than 65,521 bytes. 


dua} DFHSC TYPE=GETVIS 


4. lf error, process GETVIS 
error. 


<= OFHPC TYPE=ABEND 


5. Save length of storage in 
storage discriptor size 
field. 


6. Set storage address to user 
storage. 


7. Return to caller. 


OLZODP10 — Online Get Storage Routine 


Extended Description Routine Label Extended Description 


4. Convert return code to printable 
form. Write DLZ038I message. 
Abnormally terminate task. 





OUTPUT 


RG 


TCASCIB 


Caller 


DLZODP10 


Routine 


Label 





Figure 2-6.20. Online Free Storage Routine 


INPUT PROCESS 
Step 
26.3 
or 
26.13 
Online free storage routine. 
R6 
Torege 1. Adjust storage address to the beginning 
address Teer of the acquired storage area. 


CSA 


at ——————*, 2. Issue CICS/VS FREEMAIN if GETMAIN 
| csascnac| size is less than 65,521 bytes. 


DFHSC TYPE=FREEMAIN 


3. Issue CICS/VS FREEVIS if GETMAIN 
size is greater than 65,521 bytes. 


(=a) DFHSC TYPE=FREEVIS 


4, If error, process FREEVIS error. 


=a} OFHPC TYPE=ABEND 


5. Return to caller 


DLZODP11 - Oniine Free Storage Routine 


Extended Description Routine Label Extended Description 


4. Covert return code to printable form. 
Write DLZ038I message. Abnormally 
terminate task. 





Caller 


OUTPUT 


TCA 


TCASCTR 


DLZODP11 


Routine 


Label 
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Figure 2-6.21. Process System Call (Part 1 of 4) 
INPUT PROCESS 


scD 
SCDEXTBA OSG 
PST 


system scheduling. 


IDSGDSGLN 
PSTLNGTH 





User Call List 








TCA PPS 
PS 


E 
—__——-&, 2. If CMXT function, adjust CMXT. 
Go to Figure 2-6.6, Step 8. 


Pst 


TCA 
jas 3. If TSTR function, load the 


ITCAPCLA 


sco 





— — } 1. If ‘SYSTEMDL’ call, schedule 


ALR 


Go to Figure 2-6.6, Step 8. 


OUTPUT 


sco 


OLZSCHDL 


Task Scheduling 
Routine 
2-6.1 






scD PST 


SCDCMXT PSTUSER 
PSTSEGL 
PSTSEG 


PSTLIPRM 


requested trace module and issue scp 


i en tiet initialization call. SCOTRACE 
SCDTRCNM 
(= DFHPC TYPE=LOAD 
(mad DLZTRCAL TYPE=START 
Go to Figure 2-6.6, Step 8. 
DLZPRHOO — Program Request Handler CSECT DLZODP 
Extended Description Routine Label Extended Description Routine Label 


1. A task requesting services through the PROCSYS 
system calls must have been previously 

scheduled by ord with this 

special schedule PCB SYSTEMDL 

call. If the password does not match, 

cree abends via DFHPC with code 


Important indicators set are: 
SCDSYACT — system interface 
active 
TCADLITE termination 
required 
TCADLPAS system task 
scheduled 
TCADLISD -— task scheduled 


Exit is taken to scheduling routine to 
get a PST and initialized upon return. 


PSTSCALL (system call in progress) 
is set and return is made to caller. 


. The value passed by the user 
validated and moved to the SCD. 


Without MPS, data is moved to the 
user call list area for work space. With 
MPS this would cause a storage pro- 
tection exception. To avoid this, an 
area in the PST (PSTLIPRM) (in the 
CICS/VS DL/I partition) is used as a 
work area. The MPS batch program 
request handler (DLZMPI00) then 
moves the data from the PST into 

the user call list. 


If the new request is zero, negative, or 
exceeds MAXTASK indicate an 
invalid request error (set 08 in 
TCAFCTR). 


. If task not scheduled for system 


calls (TCADLPAS not on) abend 
via DFHPC. 


If tracing is already active set X‘01’ 
in TCAFCTR. 


If the load fails, set X02’ in TCAFCTR. 


If GETMAIN fails during initialization, 
set X04’ in TCAFCTR. 





TCA 
[scosino2_| 
ST 


PST P 
PSTCODE1 PSTPRIAD 
User Call List 








Figure 2-6.21. Process System Call (Part 2 of 4) 


INPUT 


TCA 


SCDCSABA TCADLIi 


SCOTRACE 
SCDTRCNM 





TCADDLII —— 





PPST PST 
sys 







ODIR 


OMB 
DDIRADOR DMBORG Srey eee 
ODIRCOD2 OMBPPRLN 


ACBXT 
OMBACBAD 
| DMBACBLN] BACBLN: 





DLZPRHOO — Program Request Handter CSECT 


Extended Description 





4. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 


If tracing not active, set X‘01’ in 
TCAFCTR for invalid request. 


. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 


. The DMB name passed by the caller 
is used to scan the DDIR. 


If this is not an MPS task, data (VSAM 
return code and ACB address) is moved 
into the user call list for the caller. 
With MPS, a work area is used in the 
PST (PSTLIPRM) to build the data 
from the PST to the user call list. 


If the DDIR is not found, set X‘08’ 
in TCAFCTR to indicate an invalid 
request. 


PROCESS OUTPUT 
<a P 4. 1f TSTP function, issue 
termination calf to trace module me 
and free st F 
yes 
<= DLZTRCAL TYPE=STOP 
dams) DFHPC TYPE=DELETE 
Go to Figure 2-6.6, Step 8. 
5. If STRT/STOP function, initialize 
DBD parameters by first verifying 
the caller is scheduled. 
SYS 
; 
| ______> 6. Locate DDIR entry. 
PST 






> 7. Verify that the ACB is usable. SYS 
SYSACB1 
(ou TESTCBM 
. 
a= TESTCB Macro 
DLZODP 
Routine Label Extended Description Routine 








7. The ACBs are checked for open/close 
status. The ACB address (2 if HISAM 
organization) and whether the ACB 
is open or not is put into the user call 
list (or if this is an MPS task, into the 
PST). Reference to fields within either 
of these two areas is by the system call 
parameter list DSECT (DLZSYSDS). 


If the DDIR failed to initialize, set 
X‘02’ in TCAFCTR. 


If TESTCB request fails, set X‘03” 
in TCAFCTR. 
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Figure 2-6.21. Process System Cail (Part 3 of 4) 


INPUT 


scD PST 
SCDCSABA PSTDSGA 


ODIR Oo} 


MB 
ODIRADDR DMBORG 
DDIRNUMB 





DDIR SYS 


DDIRCODE SYSFLGS 


optrR s 


YS 


scD 


SCDEXTBA 


PST DSG 


PSTOMBNM 


ScD 


PSTSv1 SCDDDBHO 


SCODBEPL 
BFPL 


BFPLSUBD 
BEPLSUIN 





_ DDIR SYS 


DDIRCODE SYSFLGS 7 


Sc 


D SCDEXT 


SCDEXTBA SCDESECS ——— 
SCDDBLOP 





OLZPRHOO — Program Request Handler CSECT 


Extended Description 


8. 


10. If the ACB is not open, set X‘01’ to 


12. 


indicate the STOP call is invalid. 


Set X‘04’ in PSTFNCNT to indicate 
‘mark buffers empty request to 
buffer handler’. 


The DMB number is used to index 
into the subpool directory to get the 
subpool number for this DMB. If there 
is no subpool number, bypass calling 
the buffer handler. 


Set X‘01’ in PSTFNCNT to indicate 
‘close DMB request’ to open/close 
module upon return from buffer 
handker. 


. If this data base is not stopped or if 


the ACB is open, X‘01’ in TCAFCTR 
to indicate the STRT call is invalid. Set 
X‘09’ in PSTENCTN to indicate ‘open 
DMB request’ to the open/close 
module. 





Figure 2-6.21. Process System Call (Part 4 of 4) 
PROCESS OUTPUT INPUT PROCESS 


scb PST 


psc [scooucr. } [ 16. Call DL/I Open/Close Module. 


por 
DDIRVSRT ==> SLD DLOGD. 
BALR Open/Close 


Module 


8. Initialize the dummy DSG. 






9. If STRT function, go to Step 14. 


10. For STOP function, check the 
validity of the call. 


sys 
IsysBecin | 

17. Return. 
11. Stop scheduling this DMB and SYSCLEAR 
wait for any users currently DDIR SCDEXT 


Scheduled 


(aan) DFHKC TYPE=WAIT ' ; 
To 
Figure 
26.6 
Step 8 
12. Call DL/t Buffer Handler to 





mark buffers empty. 
eum 


Buffer Handler 
BALR Module 
2-16 


13. Go to Step 15. 





14. For STRT function, check poIR pst 


validity of call. 
ov 


15. Wait for asynchronous logger 
if open and active. 


ne ee 


DizooPp OLZPRHOO — Program Request Handler CSECT 


Routine Label 





16. The open/close module issues and 
SVC2 and CICS/VS loses contro! for 
the duration of the call. 


The VSAM return code in the DDIR 
upon return from the buffer handler, 
is moved to the user call list area (or 
if this is an MPS task, into the PST) 
which is mapped by DLZSYSDS — 
the system call parameter list DSECT. 


. If this is an MPS task, PSTSEGL and 
PSTSEG must be set up for MPS batch 
PRH (DLZMPI00) to move data from 


PSTLIPRM to the user call list area. 
PSTUSER already contains the address 
of user call list area. 


pe OUTPUT 


sys 


SYSVSRET 


PST 
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Figure 2-7. DL/! Online System Termination 
INPUT PROCESS 


1. Locate entry point of DL/1 
termination. 


2. Call DL/I termination. 
(am 


DL/I System 
Termination 


3. Return to CICS/VS system 
termination program via 
DFHPC TYPE=RETURN. 





DBLZSTPOO — DL/I Online System Termination CSECT 


Extended Descripti Routine 





1. Control is gained from CICS/VS 
System Termination Program (STP) 
because of DLZSTPO0s presence in 
the program list table (DFHPLT). 








Figure 2-8. Call Analyzer 






OUTPUT INPUT Pere 
@ (See Note) 


R1 R13 
Ea 


PSTIOPRM 


Parameter —— >» =——— — 
List 


[Function | 


SSAs 


DLZSTPOO DLZDLAOO — Cali 


Extended Description Routine 


Note: DLZDLAO00 is called from the 
program request handler (DLZBNUCO- 
DLZPRHBO) in a batch system, from 
(DLZODP-DLZPRHOO) in an online 
system, or if at termination, it is called 
from either the application program 
control (DLZRRCO00-DLZPCC00) or 
from online task termination 
(DLZODP-DLZODP01). It is also 
called from DLZDXMTO. 


2. The function (first parameter in list) 
is encoded. If no valid function is 
found, ‘AD’ status is returned. 


Normal functions are GU, GN, GHN, 
GHU, GNP, GHNP, DLET, REPL, 
ISRT, ASRT, and CHKP. 


Pseudo functions are GSCD, UNLD, 


and TERM. 


A. 





OUTPUT 


= Pp 1. Save registers and initialize. 


2. Encode function: 


Normal Function — 
Figure 2-8.1. 
Pseudo function — 


Figure 2-8.3. 


3. Update JCB trace and PCB 


segment name, level and key- 
length. Restore registers. 


Return to 
Caller 


OLZDLAOO 


Label Extended Description Routine 





PSTSEG 
PSTSEGL 


Label 
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Figure 2-8.1. Call Analyzer — Normal Function 
INPUT 








From Fig. 
2-8 step 2A 


JCBLVT may Zeca 


DLZDLAOO — Call 
Extended Description 


If no valid PCB address is provided, 
abend code ‘476’ is returned. The 
JCB and PCB are updated and the 
second part of the level tables 
cleared. 


If no I/O area is provided, ‘AB’ 
status code is returned. 


If log is not active, return to caller 
with ‘XH’ status code in the PCB. 
The function call is ignored. 


Purge all buffers. 
All SSAs in the call are checked. 


Key checking is done for load mode 
and the last SSA of an ISRT call. 
For PROCOPT=LS and for HISAM, 
the root key is compared to the 
previously loaded root. Status code 
‘LB’ indicates invalid sequence. 


Sensitivity checking is done for 
ISRT, DLET, and REPL calls. 
Violations return ‘AM’. Extra 
checking is done for DLET and 
REPL calls, if successful GH call 
was executed before ‘DJ’ status. 





PROCESS 


1. Validate PCB address. Update 
JCB and level table. 


2. Find user’s 1/O area. 


> 3. CHKP Function: 


A. If log not active, return 
to caller. 


B. Unload Routine: 
Figure 2-8.3. 
4, Validate SSAs: 
Figure 2-8.2. 
5. Perform key checking for load 


6. Validate sensitivity. 


OUTPUT 





ing. 


7. Check length for variable length 


segments. 


> 8. Call DLZDLOCO to open data 


sets. 


A. If at least one segment has field 
level sensitivity, call DLZCPY 710 


(Figure 2-40). 


9, Call proper action module 
(DLZDLROO, DLZDDLEO, or 


Routine Label 





GETJCB 





DLBUNLD 


SDBLOOP 
ISDBLOOP1 


LDCHCK 


INOTLOAD7 
FSTDATAL 
ISREPL 
ITSTISRTS 





Extended Description 


Return to 
Figure 2-8 


DLZDLDo0O). f="? 


DLZDLAOO 


For variable length segments, 2-byte 
field in the user I/O area is compared 
to the maximum length and to the 
keyt keyoffset. If it is greater or 
smaller, ‘V1’ status is returned. 


When the data base that the PCB 
references is not open, DLZDLOCO 
is called to open all data bases 
related to this PCB. 


A. If field level sensitivity indicator is 


set, exit is made to DLZCPY10 to 
map the user view to the physical 
view. Only done if ISRT, REPL, or 


_ Retrieve (called on behalf of ISRT) 


action modules will be executed. 


For GET calls, DLZDLRO0 is called. 
For DLET/REPL calls, DLZDLD00 
is called. For ISRT/ASRT calls in 
load mode, DLZDDLEO is called 

for all segments except for HIDAM 
root, where DLZDLRO0 is called. 
For ISRT not load mode, 
DLZDLRO00 is called for all 
segments except HISAM root, 
where DLZDDLEO is called. 





Routine 


Label 


Figure 2-8.2. Call Analyzer — Validate SSAs 
PROCESS 


INPUT 


SSAs SDB 
ry 
en 


$DB8 
--f- 


Level Table os ee 
LEVNUPC 

Level Table 
SDBPARA 
SDBPHYSC 
























DLZDLAOO — Cait 


Extended Description 


1. When the segment named specified in 
the SSA cannot be found in the SDB, 
‘AC’ status is returned. 


A. Flag SDBELS is on in field SDBXFL 
if SDB has field level sensitivity. 
Flag JCBFLS is set on in field 
JCBLVT to indicate at least one 
segment in call has field level 
sensitivity. 


2. When a hierarchy error is detected, an 
‘AC’ status is returned. 


. The levels corresponding to gaps in the 
SSAs are filled with data from the 
previous call. For loading, no parent 
level may be empty. ‘LD’ status is 
teturned. 


. Extra checks are made for DLET and 
REPL calls. When no GH call was 
previously made for this SDB, a ‘DJ’ 
status is returned. 





From Figure 
2-8.1 Step 4 


. Fill pseudo entries for gaps in 


. Fill level table with data from 
SDB. 


. Validate command code. 


OUTPUT 


. Find SDB corresponding to SSA. 


. lf SDB has field level sensitivity, JCB 


set indicator in JCB. 


. Find corresponding level table. 


Level Table 


Level Table 












SSAs. 


. For qualified SSAs: 
Figure 2-8.4 (Part 3 of 3) 
Return to 
Figure 2-8.1 
Step 5 
DLZDLAOO 
Routine Label Extended Description Routine Label 





5. Valid command codes are C,D, F, L,N, 
Q, T, U, V, and X. The status code for 
invalid command code is ‘AJ’. For D 
call and no path sensitivity, the status 
code is ‘AM’. 
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Figure 2-8.3. Call Analyzer — Pseudo Function (Part 1 of 2) 


INPUT 










From Fig. 
2-8 Step 28 


Parameter 
List 


From Figure 
2-8.1 Step 3B 


PSTPSB 
PDIRADOR 


PSBLIST 





DLZDLAO1 — Call 


Extended Description 


1. Input to the GSCD call is function 
and I/O area address. DLZDLAO1 puts 
the SCD and PST addresses in 
PSTBLKNM.Program request handler 
moves it to the I/O area. 


. The TERM cail is issued in online to 
end a task. The UNLD call is issued in 
batch to end the batch program. 


A. — If the UNLD call is made for load 
mode, DLZDDLEO is called to 
write the last records for HSAM 
and HISAM, For HISAM and 
index data bases, a record is 
written with FF keys. 


Flags and pointers are cleared 

so that the PSB can be used by 
another task. If program isolation 
is active, clear all enqueue indi- 
cators in all level table entries. 


All user buffers are written to 
the data base now. RSTBLKNM, 
DMBNM, and ACBNM are 
cleared. PSTPGUSR flag of 
PSTFNCTN is set. 


PROCESS OUTPUT 


1. For a GSCD call, provide address 
of PST and SCD. 


2. For an UNLD, TERM, or CHKP call, 
process all PCBs in PSB and: 


A. Call DLZDDLEO for load. 






B. Clear flags and pointers. 


C. Cali DLZDBHOO to purge 
buffers. 


D. Fora CHKP call, go to Step 4. 
For an UNDL call, DLZDLOCO is 


called to close data bases in 
system (PSTOCALL). 


3. Restore registers. 


Return to 
Catler 


DLZDLAOO 


Routine Label Extended Description 





3. If an error occurs during the purge 
of the buffers, an ‘XD’ status code 
is returned in the PCB. 


DLBUNLD 
UNLDLOOP 











PSTBLKNM 


PSTADDR 


JCBLEVIC 
LEVTTR 


JCBNOSAM 


Routine 





PSTUSER 


SCD ade 





PSTDBPCB 
DBPCBLEV 







Label 


Figure 2-8.3. Call Analyzer — Pseudo Function (Part 2 of 2) 


INPUT 









FP 
4% 


PSTPSB 


PDIR 
PDIRSILA 


PSiL 


PSILDIRA 


DDIR —_ 
DDIRCODE 


scD —_ 


SCDDBLOP 







PST 
PSTUSER 


PDIR 


PDIRSYM 





sco — 


[ ScDREENT | EENT 
SCDODBFLW 


DLZDLAO1 — Call 
Extended Description 


All DDIR entries are scanned to 
see if an error occurred (bit 
DDIRNOSE X‘04’ in byte 
DDIRCODE set on) during purge 
of the buffers. 


If the log is the CICS journal, 
checkpoint record is not written, 
but a CICS synch point is. 


The DL/I Logger is entered 
twice; lst to move the check- 
point record to its buffer, and 
2nd to force-write the check- 
point record. 


On return from the logger, the 
checkpoint indicator (bit 
PSTCHKP X‘04’ in byte 
PSTPCT2 is set on) to notify 
the program request handler to 
issue the checkpoint message. 





PROCESS 


OUTPUT 


4. For a CHKP call, get 
address of DDIR and 
number of entries. 


a 


Routine 


If error occurred during 
buffer purge, go to 
Step 4H. 


If log is CICS journal, 
go to Step 4E. 


Build the log checkpoint 
record. 


cg 
J 


Get address of DL/I Logger. 


| pizapsto___| LZRDBLO 


DB Logger 
2-16 





PST 
Set checkpoint indicator. 
Set PCB status code. PCB 


DBPCBSTC 


Return to Step 3. 


= 


Set PCB error status code. 


Return to Step 3. 


OLZDLAOO 


Label Extended Descripti Routine 








IDDIRCHK Status code of ‘blanks’ is set 
in the PCB indicating successful 


completion of the CHKP call. 


Status code of ‘XD’ is returned 
in the PCB indicating an error 
occurred during checkpoint 
processing. 


DDIRCHK1 


IBYPASSCK 











Label 
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Figure 2-8.4. Call Analyzer — Validate Qualified SSAs 


INPUT From Figure f? PROCESS : OUTPUT 


2-8.2. {Part 1 
of 2) Step 6 


= 1. For qualified SSAs. Level Table 
A. If SDB indicator set for field tevel 


ress sensitivity, find FSB correspondin —— 
9 seeming A 
t 
| 
1 
J 





B. Find FDB corresponding to SSA. ‘aval Table 


C. Encode operator. 


D. Load Mode: compare key in SSA to 
key-feedback. 


Return to 
caller 





DLZOLAOO — Cali DLZOLAOO 


Extended Description Routine Label Extended Description Routine Label 


1. For errors in qualification, format ‘AJ’ 
status is returned. 


A. Flag SD3FLS is on in field SDBXFL if 
SDB has field level sensitivity. If an 
FSB is not found, or if the FSB is not 
marked as an allowable field, status 
code ‘AK’ is returned in PCB. 


. Valid field names are any normal field 
of the segment, the XDFLD name 
(if the secondary processing sequence 
is used). For a concatenated segment 
field, names of the logical child and the 
destination parent. are valid. ‘AK’ 
status for invalid field name. ‘AC’ 
status if /CK or /SX is used. 


. Invalid operator returns status code 
‘AJ’. 


. If qualified SSAs are specified for 
loading, the key has to correspond to 
the key-feedback area, otherwise ‘LD’ 
status code is returned. 
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Figure 2-9. Retrieve (part 1 of 2) 
INPUT 






From 
Analyzer 


(SSS aes 


00 — Retrieve Module 


Extended Description 


1. I/O information: 


®@ The Position block includes RBA of 
segment (HD) or lrec (HS), RBA of 
previous and next positions (HD), 
offset to segment from begin lrec 
(HS), concatenated key, level, block 
number (HSAM), and block number 
and RAP number of current RAP 
(HDAM). RAP = root anchor point. 


The DB/PSB Description block 
includes segment and data set 


descriptions, data base specifications, 


sensitivity, and HDAM randomizing 
facility. 


The Status Information block includes 


prior status codes, segment status, 
and (for output) pseudo abends 
(801 and 800). 


The Call Information block includes 
SSA and call type. 


Processing starts with initialization. 
Level of previous call stored in 
LASTLEV. 


PROCESS 


> 1. If unqualified call, go to step 3. Other- 
wise, go to Figure 2-9.1 to try to use 
previous position: 


> 2. If GU with unqualified root, go to 
Figure 2-9.4 to determine start key for 
searching. Otherwise, go to Figure 2-9.5 
to analyze qualified calls and continue 
at step 5. 


>3. If not a GN, go to step 4. Otherwise, do 
unqualified GN call analysis and continue 
at step 5. 


4. Get first DB segment. 


Routine Label Extended Description 








Figure 2-9. Retrieve (Part 2 of 2) 


> 5. For! 
A. 


6. Exit. 


DLZDLROO — Retrieve Module 


Extended Description Routine 


5. DLZSSA is called, if necessary, to find 
insert position for key. Controi is then 
passed to DLZISRT to prepare position 
information in the SDB for INSERT. 
Return is to DLZGETS (Figure 2-9.6). 


PSTSEG is address of data, PSTSEGL 
gives its length. 


For IRST calls, DLZGETS does only 
housekeeping (no data moving). 
DLZGETS will pass control to 
DLZRETN and DLZDLR to exit. 


For a segment with logical relationship, 
DLZGETS will call DLZLOGR for 
data move/insert positioning. 


. If call type is GET, go to Analyzer. 
If it is ISRT, go to Load/Insert. 





PROCESS 


SRT cals: 


Determine positioning 
and move segment to user. 


Call DLZGETS (Fig 2-9.7) 
to make retrieved data 
available to user. 


Extended Description 


OUTPUT 





PST 


Jpstsect. | EGL 


To Analyzer 
or Load 
{Insert 


DLZDLROO 


Routine Label 
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Figure 2-9.1. Retrieve — DLZLTW Routine 
INPUT PROCESS 


From Fig. 
249 step i 








1. Set KEEPIT=1. 


_ 2. Check previous call’s hierarchical 
path against SSA’s. Loop through 
levels. Check segment type, and for 
qualified SSA, check key feedback area 
(Figure 2-9.2). 


3. If path is accepted, locate previous 
segment (Figure 2-9.3), set KEEPIT=0, 
and go to step 6. 


4. If discrepancy at root level, set 
KEEPIT=0 and go to step 6. 


5. If discrepancy at lower level, set 
KEEPIT=0 and go to step 6. 


If GN call, position to previous 


6. Exit. 


To Fig, 2-9 
Step 2 


DLZDLROO ~ Retrieve Module 


Extended Description 


Extended Description 


1. KEEPIT=1 indicates: try to use 
previous position. KEEPIT=0 indicates: 
DLZLTW has been left. Other values 
have special meanings. (Entry point 
when R15 = 0.) . 


5. Set exit code for entry SSAEVALL in 
DLZSSA. 


2. DLZKDTE is invoked via DLZSSA which 
is called by return to DLZDLRO and 
back to DLZLTW. Logically, this is part 
of DLZLTW as indicated by KEEPIT=1. 


Qualified SSA test: After entering 
several routines, return to DLZLTW 
entry LTWSSACA, LTWSSAF, or 
LTWSSAG. 


Lowest level found valid is stored in 
JCBLEVIC. 


3. Set code for exit: Entry UNQLA in 
DEZSSA for GU or ISRT, entry 
SSAEVALH for GN. 


DLZPCHK loads buffer location of 
seni segment into register 6 (except 
‘or HD or GN calls) and, for HD, toads 

available SUBPOSN positions. 





OUTPUT 





R6 SOB 


Co ar 





SDBPOSN 





DiLZDLROO 


Routine Label 









|} Operator 
R16= 
LEVMEMBR 





Figure 2-9.2. Retrieve -DLZKDTE Routine 
INPUT PROCESS 
From Caller 


—_ > 1. Find FDB for SSA field. if 
found, continue with step 2. 
If not found, set status code 
AK (error in call) and return. 


2. if KEEPIT=1, use key feedback 
area to test against field 
value in SSA, Otherwise use 
segment. 


Field Segment an 3. If necessary turn on LEVSTOP. 


Value Data 
ie | 
LEVSSA 


L > 4. Test segment or key feedback 


Rel. area for acceptance. 


OLZOLROO — Retrieve Module 


Extended Description 


Extended Description Routine 


2. If logical relationship, build concate- 
nated segment. If variable length, 
build data. 


. If qualification is on key, relational 
operator is greater than or equal to, 
and key is less than or equal to, SSA. 


. If accepted, R15=0, otherwise, 
R15=4, 





OUTPUT 


PCB 


LEVF2 


Lo =) 
m o 5 
< 


4 
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To Caller 


DLZDLROO 


Routine 


Labet 
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Figure 2-9.3. Retrieve - DLZPCHK Routine 


INPUT From Caller 





ai 


| 
| 
| 
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DLZDLROO — Retrieve Module 


Extended Description 


2. For HSAM, more than 1 PCB: restore 
position. 
For HISAM: take care of control 
interval splits. 


B. If not found (segment not 
sensitive), turn on LEVDLET and 
go to step 3. 


. For HS, relational record number 
and offset to SDBPOSC. SDBPOSN 
already posted by DLZSETL. 


For HD, post twin pointers. 


Clear dependent positions 
(SUBPOSP, SDBPOSC, and 
SDBPOSN). For HD, post child 
pointers. 


For HD logical relation with 
inverted structure, post child 
pointers. Subroutine called by 
DLZPSTA. 


Clear SDBPOSP, SDBPOSC, 
and SDBPOSN in preceding sibling 
SDBs unless multi-processing. 





PROCESS 


1, if GN call, HD: 


Move SDBPOSC to CURTTR and go 
to step 3. 


2. Position to segment: 


A. Interface to Buffer Handler, 
PSTBYLCT. 


B. Find SDB from segment code. 
C. Get pointers from segment. 


3. Exit 


Extended Description 


To Caller 


OUTPUT 


So 


cB 


Qa 
c¢ 
a 
4 
wD 


segment in 
buffer 


R6 


SDB 





OLZDLROO 


Routine Label 








Figure 2-9.4. Retrieve — DLZTAG Routine 
INPUT tom Fig, gam PROCESS 


P 1. If qualification is on key 
and operator is greater than 
or equal to SSA, position on 
key required. 


2. For GN, go to step 4, otherwise, 
position on start of DB. 


Key FBA 


3. Interface to Buffer Handler 





and HSAM 1/0. 
| pizpsto0 | 
DB Buffer 
4. Exit. 
DLZDLROO — Retrieve Module 
Extended Description Routine Label Extended Description 


1. Set code PSTSTLEQ for DLZSETL. 
Set exit code for entry SSAEVAL 
in DLZSSA. 


. Set code PSTSTLBG for DLZSETL. 
Set exit code for entry SSAEVAL or 
SSAEVALM in DLZSSA. 


For GN, set exit code for entry 
SSAEVALM in DLZSSA. 


. DLZSETL branches to subroutines 
according to DB organization. R6 
points to segment in buffer pool. 


OUTPUT 


R6 


To Fig 2-9 
Step 3 


DLZDOLROO 


Routine Label 
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Figure 2-9.5. Retrieve — DLZSSA Routine (Part 1 of 2) Figure 2-9.5. Retrieve - DLZSSA Routine (Part 2 of 2) 





From Calter f@ PROCESS OUTPUT INPUT. PROCESS 
q Bots 9. Segment is not acceptable. 
poor 1. if SSA is unqualified, go to 
step 4. Position and A. If LEVCONT is on and not 
eitioné at root level, go to Step 9E. 
set by RETRIEVE 
2 Go to DLZKDTE routine (Fig . : : : : in previous B. — If LEVCONT is on and at root’ 
2-9.2) to check acceptability ; Se current at level, go to Step 9D. 


of a segment. 
If current level is root, 
exit to subroutine DLZGER. 


3. If segment is not accepted, 
go to step 9. 


A i tit 
tee 4, Update level table. Bie. 
ANALYZER opie 
la 


5. Go to next lower fevel. 


Otherwise, back up one level 
and return to Step 9A. 


Get next root segment. 


OLZSETL 


Interface to 
buffer handler 
land HSAM 1/0 


6. If level is not qualified, 





go to step 10. Go to routine DLZSKPG {Fig 
2-9.6) to skip to next segment 
of same type under present 
7. Go to DLZSKPG routine (Fig root. 
2-9.6) to skip segments. 
Return to Step 1. 
8. Go to step 1. 
10. Exit. 
Return to 
Calter 
. DLZDLROO — Retrieve Module DLZDLROO DLZDLROO — DLZSSA Routine DLZDLROO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





2. With a Boolean SSA all Boolean state- —}- 
ments connected by AND operators are 
considered a ‘set’ of qualification state- 
ments, An OR operator between two 
qualification statements begins a new set 
of qualification statements. A set can 
consist of one or more qualification 
statements. To satisfy any set, the 
segment must satisfy all statements ‘ 
within the set. 
. Prepare input (segment type, etc.) DLZSKPG 
before entering the central DLZSKPG 
routine. 
| 
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Figure 2-9.6 Retrieve — DLZSKPG Routine 
INPUT From Caller on PROCESS OUTPUT INPUT 


Figure 2-9.7. Retrieve - DLZGETS Routine 
From Figure ge PROCESS OUTPUT 
29 Step 5B 





a > 1. If ‘Skip to Next’ option, go to step 3. 


1. Turn on LEVDATA. Turn on LEV 


fs = 


2. Save lowest level number. JcB 


LEVHELD if Get Hold call. 
2. Prepare control input. Jc 





LEV 
LEVLEV 


_ >3. Skip to next segment. 


Z woos 


* 
. 


ye10dQ JO poy 


uor 


L-@ 





4. If skip failed, go to step 8. 
5. If ‘Skip to Next’ option, test if segment is 


-|--1- 


DMB 





3. If logical relationship, call 
DLZLOGR (Fig. 2-9.8) to build 


concatenated segment. 


sensitive. 
ses 4. If variable length segment, 
4cB If not sensitive, go to step 3. build/expand segment. 

JCBCODE, 

bit 6. If ‘Skip eh pil peo option, test spB 

JCBRDREQ segment segment code. [soerts | = 5. If field level sensitivity specified, 

cait DLZFLDO to build user view. 

If accepted, go to step 8. 


7. f position still before segment searched, 
go to step 3. Otherwise, indicate failure. 








6. Move segment to I/O area and give 





pM poe ment location and length ones 
7 segmen ion an . 
¥ a DMBBOL segment in 
_ al 
7. Do final housekeeping. 
8. Exit. 
Return to 
| Analyzer or 
Load/Insert 
Return to 
Cailer 
DLZDLRO0O — Retrieve Module DLZDLROO 
Extended Description Routine Label Extended Description Routine Label 
. Option is ‘Skip to Next Segment’ if R15 - 7. If segment code of segment found is not 
is positive. If R15 is negative, the option larger than that required. DLZDLROO — Retrieve Module DLZLDROO 
is ‘Skip to Specified Segment’. 
Extended Description Routine Label Extended Description Routine Label 


. If JCBLVT = X‘02’, require segment 
code, segment level in physical DB, and 
parentage level. 


. For JCBRDREQ off, current segment 
is examined first. 


DLZSKPS calls general skip routine 
DLZSKPE, which calls specific skip 
routines: 

For HS, DLZSKPD. 


For HD using SUBPOSN, DLZSTLA. 


In some cases (HS, ae first child of 


current segment), DLZSKPD is called 
directly from DLZSKPS. 


- End of ESDS chain reached for HISAM. 





6. If batch, only one task active, or no 
field level sensitivity specified, and if 
segment is fixed length and not involved 
in logical relationship, segment data is 
not moved (left in buffer pool). The 
same is true for Insert calls. 


For a path call (*D command), data has 
already been moved in DLZUPDT and 
is not moved here. 


Address of I/O area is PSBIOAWK. 


7. For Insert calls, return is to Load/Insert. 
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Figure 2-9.8 Retrieve - DLZLOGR Routine 


INPUT PROCESS 
From Calter 
i cos “es 1. For ISRT call go to step 6. 
PSDB $bB 
logical chitd >» 2. Move logical child. 
deta in buffer 


3. If not a variable length segment, 
go to step 5. 


4. Expand segment. 


- §&. Move destination parent 
data. 


—— 6. Call DLZRETI (Fig 2-9.9) to 
insert positioning for logical 
child. 





7. Exit. 


DLZDLROO -- Retrieve Moduie 


Extended Description 
1. Destination parent concatenated key 
and logical child data. 


6. Destination parent exists. Position 
segment on alternate twin chain. 


OUTPUT 


PSBIOAWK 


work ares 
for concat. 
segment 
deta 


To Catler 


OLZBLROOG 
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From Calter 


LEV 
SDB (of LEVUSEOF 
logical 
child) 


PSBIOAWK 


destination 





DLZDLROO — Retrieve Module 


Extended Description 


1. LEVUSEOF indicates offset of key for 
this level in concatenated key. 


Destination parent data is stored 
behind concatenated key and logical 
child. 

» For virtual logical child (insert through 


logical path), positioning on physical 
twin chain is required. 


. Find logical twin pointer number. 
Find logical child first and last pointers 
in logical parent. Find FDB for key of 


logical child, if present. 


. Find physical twin pointer number. 
Find physical child first and last 
pointers in parent. Find FDB for key 
of virtual logical child, if present. 


Logical twin key is moved to key 
feedback area. 





Figure 2-9.9, Retrieve — DLZRETI Routine (Part 1 of 2) 
INPUT 


PROCESS 


1, Retrieve destination parent 
using concatenated key. 


2. If virtual logical child, go 
to step 4. 


3. Find pointer number and go to 


step 5. 


4. Get pointer numbers. 


5. Get pointers from destination 


parent. 


6. If no key and rule ‘FIRST’, 
go to exit, step 8. 


Routine Label Extended Description 








Figure 2-9.9. Retrieve — DLZRETI Routine (Part 2 of 2) 


INPUT 


DLZDLROO — Retrieve Module 


Extended Description 





7. Alternate means: Logical twin chain 
if entering from physical path, 
physical if entering from logical path. 


If sequence field is in destination 
parent concatenated key (possible 
only for virtual logical child), the 
virtual area (physical parent, 
concatenated key, and logical child 
data) is built in PSBIOAWK, calling 
routines DLZYSTC and DLZMOVA. 
As an indication, the first byte of 
PSTWRKTS is set to X‘FF’. 


A. For logically deleted segment, 
tur on bit JCBDEFDL in 
field JCBCODE. 


PROCESS 


7. Follow alternate twin chain 
until key (if present) larger 
than key of inserted segment, 
or to end of chain. Go to 
exit, step 8. 


Special case: matching key 
found in chain: 


A. Key unique: If segment de- 
leted logically, go to 
exit, step 8. Otherwise, 
set status code ‘II’, and 
go to exit, step 8, 


B. Key not unique: If rule is 
‘FIRST’, go to exit, step 8. 
Otherwise, follow twin 
chain until larger key is 
found or to the end of 
chain. 


8. Exit. 


Routine Label 





RETISRTL 


Extended Description 





OUTPUT 


DBPCB 


[oercestc | 


Return to 
Caller 


DLZDLROO 


Routine Label 
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Figure 2-9.10. Retrieve - DLZFLDO Subroutine 


INPUT From Figure 
2-9.7 Step 5 

SDB 

-~-45- 

| 

PSDB L. 

---+4-- 

FER 


I 


DLZOLROO — Retrieve Module 


Extended Description 


1. FER is located at address in PSBNDXWK. 


2. The concatenated segment has been built 


in PSBIOAWK and the user’s view must be 


constructed in another area (PSBXIOWK). 
For path calls (*D command), the user’s 
view will be moved back to PSBIOAWK 
after conversion to the yser’s view. 


. Fields may be defined that are outside the 
physical segment, so they must be 
defaulted so conversion errors do not 
occur. If such fields do exist, the segment 
is moved to PSBXIOWK and the defaults 
provided. 


. If a conversion error is detected, an 
immediate exit to the Call Analyzer is 
taken. 





PROCESS 


1. Initialize field exit routine interface list. 


2. If concatenated segment, update FER. 


3. If segment is variable length, update FER. 


4. Call DLZCPY 10. 


5. Exit. 


Routine Label Extended Description 


Return to 
caller 


OUTPUT 
FER 


I 


FER 


FERPUSA 
FERPPSA 


n 
m 
ih 


FERPPSA 


UO Area 


J 


DLZDLROO 


Routine Label 
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Figure 2-10. Load/Insert (Part 1 of 2) 
INPUT 





From Caller 
(See Note) 
DL/i Ctrl User 1/0 —T 
Blocks Area | 
L a 


DLZODLEO — Load insert Module 


Extended Description 


Note: DLZDDLEO is called from 
DLZDLAOO (Cail Analyzer) or from 
DLZDLROO (Retrieve Module). 


Routine Label 


PROCESS 


1. Initialize. 


2. Cail subroutine depending on 
data base and ‘PROCOPT’: 











emp HSAMLOAD 


HSAM Load 
2-10.1 


DFSDHILO 


HISAM Load 
2-10.2 


HIISRTRO 


HISAM Root 
Insert 









2-10.3 


HISRTR 


HISAM Depen- 
dent Segment 
Insert 

2-10.4 





DFSDHDLO 


HDAM/HIDAM 
Load 
2-10.6 









Figure 2-10. Load/Insert (part 2 of 2) 


OUTPUT INPUT PROCESS 


2. (con’t) 


_ DLA Ctrl 


Blocks 





4. Return 


DLZDDLEG 


Routine Label 





Extended Description Routine 


Note: DLZDDLE0 is called from 
DLZDLAOO (Call Analyzer) or 
from DLZDLROO (Retrieve 
Module). 


jaa HDAM/HIDAM 


Label 





Not Load 
2-10.7 


DFSDNXTO 





Not Load End- 
ing Routine 
2-10.8 


HIISNXLV 


Load Ending 
Routine 
2-109 





Extended Description 


Return to 
Calfer (See 
Note} 


OUTPUT 


Routine 


Label 
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Figure 2-10.1. HSAM Load 


INPUT PROCESS 
From Fig. 
2-10 Step 2 


[ocsusano_|— — —— > 1. On first entry, initialize 


DTF and 1/O buffer address. 


OUTPUT 





DIF LODBLOCK 





Figure 2-10.2, HISAM Load 
INPUT 








From Fig. 
2-10 Step 2 


JCB 
JCBPRESF 1. 
LODBLOCK —— A. 


LODOFFSE 


PROCESS OUTPUT 


Root segments: 


Write previous KSDS record 





OLZDDLEO — HSAM Load 


£xtended Description 


1. DLZDLOC0 stores the I/O area address 
in the JCB. It is updated with every 


‘PUT’. 


The record size is taken from the DTF 
and the error exit address in the DTF 


is updated. 





2. Issue locate mode ‘PUT’ when 
record is full. 


3. Move segment to I/O area 
and update tables. 


Gam [orsouns | 
eS es 


4, For UNLD call, issue last 
‘PUT’. 


To Fig 2-10 
Step 3 


Routine Labei Extended Description 





IHS AMFRST 


LODBLOCK 


. Buffer 


LODBLOCK 


OLZDDLEO 


Routine 








LODLRECL 


PSDB 


vooereck | He — — 
LOOLRECL 


| LopeLock | 
LODOFFSET, 





LOOLRECL 





OLZDOLEO — HiSAM Load 


Label Extended Description 





Record length, buffer address, 
and offset into buffer is stored 
in the JCB and passed from call 
to call. 


When a call for a new root seg- 
ment is made, the buffer handler 
(DLZDBHO00) is called to write 
the previous KSDS record and 
to get buffer space for the new 
one. 


records, continue with step 2. 
Otherwise, the RBA of the next 
ESDS record is calculated, the 
pointer of the current ESDS 
record updated, and the buffer 


Another call to DLZDBHO0 is 
made to get buffer space for a 
new ESDS record. 


ABEND 855 is given if VSAM 
retums an RBA different from 
the calculated one. 


Routine Label 


WRITEOLD |HISIMPLS 


If there is space left in the ESDS |NEWRBA WERposAM 


handler called to write the ESDS. 


and get buffer for new one. 


B. Dependent segments: 
If no more space in ESDS, 
write previous ESDS and 
get buffer for new one. 


2. Move segment to buffer 


dammed [orsou0s | 


3. UNLD call: 


Write previous KSDS and ESDS 
record. Write new KSDS record 
with root key of ‘FF‘s. 


To Fig 2-10 
Step 4 


DLZDDLEO 


Extended Description 





2. The segment is moved, the PCB key 
fed back, and the level table updated. 


LATERROR 
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Figure 2-10.3. HISAM Root Insert (Part 1 of 2) 


INPUT From Fy, i PROCESS 


2-10 Step 2 


PST 1. Call DLZDBHO00 to get segment 
with key EQ or HI. 


PSTDATA 2. If key of returned segment is 





= Area 4. Move segment and update PCB 
and level table. 


(aim | orscuvs | 


5. Indicate only one segment in 
record and log new record. 


DLZDDLEO — HISAM Root Insert 


Extended Description Routine Label 





. The buffer handler is called with OTOFUNC|HIISRTRO 
‘PSTSTLEQ’ to get a segment with 
key equal or higher than the one to 


be inserted. 


. If the key retumed is higher, 
processing continues with step 7. 


. When the delete flag is not on in the 
segment retumed, status code “II’ is 
returned to the caller. 


The data base log module is called to 
log the old KSDS record. 


. The new root segment is moved to the 
KSDS record. The PCB key feedback 
area and level table are updated. 


. The pointer to the ESDS record is 
cleared and ‘00’ moved to the KSDS 
record behind the root segment. The 
data base log module is called to log 
the new KSDS record. 


EQ, update SDB and level 
table. If it is not EQ, go to 
step 7. 
3. Return II status when segmen’ 
was not deleted. 
Otherwise, log old segment. 
= 
2-16 





Extended Description 


OUTPUT 


IPSTDATA KSDS 
Record 


2 == 


DBPCB 





To Fig 2-10 
Step 4 


KSDS PCB 


LEVTAB 





DLZDDLEO 


Routine Label 





Figure 2-10.3, HISAM Root Insert (Part 2 of 2) 
INPUT PROCESS 


6. Write record block. 


7. Call DLZDBHOO to get buffer 


PSTFNCTN 


le | space for KSDS record. 
1/0 Area 8. Move segment, update PCB and 
tevel table. 


(eam) [5rs0u0s 
aaa 


9, LOG THE NEW RECORD. 


10. Call DLZDBHO0 to write the 
new KSDS record. 


11, Update tables. 


DLZDDLEO — HISAM Root Insert 
Extended Description Routine Labe! 
6. The buffer handler is called to write 
the KSDS record back (PSTBFALT). 
7. The buffer handler is called 
(PSTGBSPC) to get buffer space 
for one KSDS record. 


10. PSTPUTKY is used to write the new 
KSDS record. 


Extended Description 


To Fig 2-10 
Step 3 


OUTPUT 


PSTDATA 


[4 


— 


DLZDDLEO 


Routine 


LEVTAB 


Label 
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Figure 2-10.4.: HISAM Dependent Segment Insert 





INPUT PROCESS 
‘ From Fig. 
2-10 Step 2 
_ 1. Log old record. 


——~ FP 2. Compute tength of shift data 
and check rest of records for 
valid segment codes. 


3. Move shift data and new seg- 
ment. 


Figure 2-10.5. 


4. Log record. 


=p DLZRDBLO 


DB Logger 
2-16 


5. Correct position of other 
users of same data base. 


6. Write one, two, or three 
records. 


DOLZDDLEO — HISAM Dependent Segment Insert 


Extended Descriptio Z i Label 





. DLZDLROO has located within a KSDS 
or ESDS record, where the new segment 
has to be inserted. The old record is 
logged from insert point on to the right. 


. The record is inspected from the insert 
point to the right. The segment code 
is checked and the length of the remain- 
ing segments is added to give the 
‘shift data’. 


. Log the old record from insert point 
to the right. 


. SDBs and level tables of other PCBs 
that are positioned in the same record 
are updated to show the shifted position 
of the segments. 


. DLZDBHO00 is called to write back the 
old record and to write one or two new 
ESDS records. 





To Figure 2-10 
Step 3 


OUTPUT 





SDB 


DLZDDLEO 


ABEND 
“861 


LEVTAB 
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Extended Descriptio Routine Label Extended Description Routine Label 
5 led Descripti 
' 1. When both the new segment and the DFSDLIMS |OVERLAPL 
shift data fit in the old record, the i i 
shift data is moved right by segment * ge ft the cla eed. 
length. The segment is moved to the A new record has to be 
sani ee the PCB and level table are built. If it does not have 
. toom for the segment and 
2. Anew ESDS record has to be built. ETNESDS |SEGTOOLD ESD: Apadarricwed be built. 
The records are chained and 
logged. 


Figure 2-10.5. NOTSC Routine (Part 1 of 2) 


INPUT PROCESS OUTPUT INPUT 





From Fig. 
210.4 
Step 3 


omB T > 1. Segment and shift data fit in 


old record: 
x Area 


A. Move ‘shift data’ right. 
B. Move segment to buffer and 


rc—_——_— 





update tables. 
2. Segment fits in old record 

but not ‘shift data’. 

A. Calculate RBA of new ESDS 
record. 

B. Get buffer space for one 
ESDS record. 

C. Chain old and new record 
and tog chain. 

D. Move ‘shift data’ to new 
ESDS record. 

E. Log new record. 

F. Move segment to old record. 

DLZDDLEO — HISAM Dependent Segment Insert DLZDDLEO DLZDDLEO — HISAM Dependent Segment Insert 





Figure 2-10.5. NOTSC Routine (Part 2 of 2) 





PROCESS OUTPUT 
> 3. Move segment and ‘shift data’ old record 

to new ESDS. 
A. Calculate RBA of new ESDS new record(s) 

Calcul 
B. Get buffer space for new 

ESDS record. 
C. Chain the two records and 

log the chain. 
D. Move segment to new record 

and update records. 
E. Move ‘shift data’ to new 

record. If it does not fit, 

repeat step 3 A, B, and C. 
F, Log one or two new ESDS 

records. 

= 
DB Logger 
2-16 
To Fig 2-10.4 
Step 4 
DLZDDLEO 
Extended Description Routine Label 
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Figure 2-10.6. HDAM/HIDAM Load (Part 1 of 2) 


INPUT From Fig. PROCESS 
2-10 Step 2 
DMB — a ee > 1. Get real length of segment. 


I 


= 





Deal with 
Variable 
jength segment 








spB 2. Simulate retrieve positioning. 


> 3. If segment is present, replace 
it. Otherwise, get space for 


segment. ‘ 
HE [oZ0H050 


HD Space 
Management 
2-13 


L 
PST er 


HO Area 






4. Update anchor point in HIDAM 
and fog change. 


TT «SCS. Move segment to buffer and 
update tables. 


wp [orsouns | 
ae 





DLZDDLEO — HOAM/HIDAM Load 


. The subroutine VLDSEG takes the 
length from the PSDB for fixed 
length segments and from the user’s 
I/O area for variable length segments. 
The compaction exit routine is called, 
if it exists. 


VLDSEG |DFSDHDLO 


ABEND ‘863? is given when the com- 
paction routine changes the sequence 
- field. 


. For HIDAM root segments, DLZDLROO 
did the positioning. For other segments, 
it is done here. 


. Space management is called to get 
space for the segment. If the segment 
was deleted in one path only, i.e. it 
was not removed by DLZDLDOO, the 
segment is replaced with the new data. 


. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 


. Move segment to buffer, update PCB 
key feedback, and update level table. 


VLDSEG 


OUTPUT 






PSTWRK1 


SDB 


SDBPOSC 


LEVTAB 


aaa 


DLZDDLEO 


PSTOFFST 


PST 
SDB 
PST 






VO Area 


DBPCB 














Figure 2-10.6. HDAM/HIDAM Load (Part 2 of 2) 
INPUT PROCESS 


6. Update prefix. 


changes. 


DLZDDLEO — HDAM/HIDAM Load 


Extended Description Routine Label 


6. The prefix of the segment is updated: 
physical twin pointers, physical parent 
pointer, logical parent pointer, and 
logical twin pointers. 


. The data base log module is called to 
log the inserted segment. 


. Call space management (DLZDHDSO) 
to update the prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments and call the 
data base log module to log all changes. 


(amma 


7. Log inserted segment. 


Fozrpeto | 


DB Logger 
2-16 





8. Update prefixes of parents and 
twins. Update HIDAM root 
anchor points and log the 


Extended Description 


OUTPUT 


Buffer 


DLZDDLEO 


Routine 


Label 
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Figure 2-10.7. HDAM/HIDAM Not Load (Part 1 of 2) 


INPUT PROCESS 
From Fig. 
2-10 Step 2 
{See Note) 
DMB _ —_ > 1. Get real length of segment. 


PST _ —_— 


1/0 Area 





OLZDDLEO — HDAM/HIDAM Not Load 


Extended Description 


Note: When this entry is used, DLZDLROO 
had done the positioning. 


2. Space management (DLZDHDSO) is 
called to get space for the segment. If 
the segment was deleted in one path 
only, i.e. it was not removed by 
DLZDLDO0, the segment is replaced 
with the new data. 


. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 


. Move segment to buffer, update PCB 
feedback and the level table. 





I 






Segment 


2. If segment is present, replace 


VLOSEG 


Process Vari- 
able Length 


OUTPUT 


PST 


PSTWRKDS5S 


PST 


Figure 2-10.7. HDAM/HIDAM Not Load (Part 2 of 2) 
INPUT 


r 
| 
| 
—| 
| 
| 
bs 


PROCESS OUTPUT 


5. Update prefix. 


6. Log inserted segment. 


= 


Buffer 


DLZRDBLO 


DB Logger 
2-16 






7. Update prefixes of parents 
and twins. Update HIDAM root. 
anchor point and log the 





it. Otherwise, get space for 
occa | PSTOFFST | 
exse DLZDHDsO PSTWRK1 
HD Space 
Management 
2-13 
3. Update anchor point in HIDAM 
and log change. 
Buffer SDB 


4. Move segment to buffer and 
update tables. LEVTAB 


DBPCcB LEVTTR 





DLZODLEO 


Label 


Extended Description Routine 











changes. 


DLZDDLEO — HDAM/HIDAM Not Load 


Extended Description Routine Label 


5. The prefix of the segment is updated: 
physical twin pointers, physical 
parent pointer, logical parent pointer, 
and logical twin pointers. 


. The data base log module is called to 
log the inserted segment. 


. Call space management (DLZDHDSO) |TOSPACE 
to update the bitmap if required: IUPPARENT |B 
update prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments, call the 


data base log module to log all changes. 


Extended Description 


DLZDDLEO 


Routine 


Label 
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Figure 2-10.8. Not Load Ending Routine 


INPUT PROCESS 





From Fig. 
2-10 Step 3 


—I— — -© 1. call DLZDxMTO if segment is 
indexed. 


ispartag_|— —|— — i 2. \f segment was LP, insert LC 
now. 


LEVTAB 
atin 3. For LC segments: 


Replace data of LP if it was 
not inserted before. 


— 4. For PATH ISRT, insert next 
segment. 


5. Clean up and return. 


DLZDDLEO — OFSDXNTO Ending Routine for Not Load 


Extended Description Routine Label Extended Description 


1. Index Maintenance is called to build 
the primary or secondary index for 
an index source segment. 


. If the ISRT call was for a concatenated 
segment, the destination parent was 
inserted first (Gf it did not exist before 
the ISRT call). The next step is to 
insert the logical child segment. The 
insert process is repeated from Fig- 
ure 2-10 step 2. 


. If the ISRT rule of the destination 
parent is virtual and this segment 
existed already, then the data of the 
destination parent is replaced. 
DLZDXMTO0 is called to replace the 
index if the destination parent is an 
index source segment. 


. If there are more segments to be 
inserted in a PATH, then point to the 
next segment in the I/O area and 
continue with Figure 2-10 step 2. 


To Fig 2-10 
Step 4 


OUTPUT 


LP-SEGMENT 


PSTUSER 





DLZDDLEO 


Routine 


Label 


Figure 2-10.9. Load Ending Routine 


INPUT PROCESS OUTPUT 









From Fig. 
2-10 Step 3 


1. Write work data set for LC 
and LP segments. 


sos —— 
cia SE 


PSDB 


[oapcerky | 





2. Build index for index source 
statement. 


PSTUSER 


3. Load next segment for PATH 
ISRT. 


LEVTAB PSTUSER —> 


4. Call DLZDXMTO for UNLD call. 


5. Clean up and return. PSTSEG R15 


PSTSEGL 
To Fig 2-10 oe 
Step 4 
DLZDDLEO — HIISNXLV Ending Routine Load Mode DLZDDLEO 
Extended Description Routine Label Extended Description Routine Labet 


1. If the segment just loaded was a 
logical child or a logical parent 
segment, DLZDSEH0 is called to 
write the work data set. If opening 
of the work data set fails due to 
‘ASSGN SYS013,IGN’ and the segment 
was an LP, processing continues. On 
any other open failure, ‘ABEND 864 
is given. 


. If the segment is an index source 
segment, DLZDXMTO is called. It 
writes the work data set or writes the 
index pointer segment directly. 


. For PATH ISRT, the pointer to the 
I/O area is updated and processing 
continues with Figure 2-10 step 2. 


. DLZDXMT0 is called to inspect all 
PSDBs of the DMB for index source 
segments and builds an FF key index 
pointer record for it. 
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Figure 2-11, Delete/Replace 
INPUT PROCESS 


From Fig. 
28.1 





DBPCB > =1. Initialize addresses. 


[| lercexeo] 


RESE — —_— 


2. If call is REPL, 


I 


REPLACE 





Process 
Replace 
2-11.1 


3. If call is DLET and data base 
is HISAM, 


DLETE 


Process HiSAM 
Delete 
2-11.4 


4. If call is DLET and data base 
is HDAM or HIDAM, 





DELTHD 


Process HD/HID 





5. Return to DLZDLZ00 with 
return code in register 15. 
To Figure 
28.1 
OLZDLDOO — DLET/REPL Module 


Extended Description . Extended Description 





1. The segment to be deleted or replaced {DLZDLDOO 
is identified by the contents of 
JCBLEVIC. Position is established by 
DLZDLRO0 in the previous call. 


. If a user error occurred, DBPCBSTC 
has return code. If abend, PSTERCD1 
has abend code and registers are saved 
at SCDABSAV ¢ 8. 


DLZDLDOO 


Figure 2-11.1. Replace 
OUTPUT INPUT 


From Fig. 
2-11 step 2 


PSTUSER 


DMBDL 


LEVUSEOF 


PSTUSER Buffer 


PSTUSER 


A I/O Area) 





R15 


DLZDLDO0O — OLET/REPL Module 


Routine Label Extended Description 


1. 


2. PSTUSER will have new value if path 
call had been made. The length is taken 
from the first two bytes of the 1/0 
area if segment is variable length. 


. Additional logic is needed if segment 
is variable length or if PROCSEQ is 
specified. 


. A. The following check is made 
for the LC: 


Neither the physical nor logical 
key fields can be changed (DA 
status). 


The following checks are made for 
the destination parent: 





a) If data didn’t change, no replace. 














PROCESS 


(REPLACE) 


OUTPUT 


1. Ensure that key field has 


not been changed. 


2. Set address, length, and 
offset of segment. 


3. Ensure data changed an 
field not changed. 


4. \f segment is an LC, 


UDLENGTH 


PSTUSER 
A (segment) 


DOFFSET DBOFFSET 
offset in offset 
user area in /O 
Buffer 


ALTKYADJ 
adjust- 
ment for 

id key alternate 
key 


A. Ensure LC can be replaced. 


B. If data changed: 





5. Replace segment. 


DOREPL 


Reptace LP 


fporerL | 


Replace 
segment 
2-41.2 














user segment 






2-114.2 







6. If another level to replace, 
go to step 1. Return when 


done. 





To Fig 2-11 
Step 3 


DLZDLDOO 


Extended Description Routine Label 


4. (con’t) 


b) If replace rule is physical, RX 
status. If logical, no change and 
blank status. If virtual, the key 
of the LP cannot be changed 
(DA status). The segment can 
be replaced. 


B. 
5. This replaces normal segment or LC. 


6. If path call, see if another segment 


in hierarchy can be replaced. 
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Figure 2-11.2. Replace Data (Part 1 of 2) 
INPUT PROCESS 


From Fig. 
2-11.1 


(DOREPL) 


1. Do PI queuing if necessary. 





OMBELAG 


——-—P 2. If segment has secondary 
Buffer indicies and is not marked 
physically deleted: 


A. Go build work area for 
index maintenance. 


B. Call DLZDXMTO. 
== 


Index Main- 


tenance 
2-12 





C. ‘If blank or NE status, 








DMBCBSTC_ — —— —— -}-—- —~ —-> a 
continue. 
pMBVLOFG —-———— 4 —. —.. > 3. If segment is variable length: 
= 
Replace 
variable 
2.11.3 
Buffer 4. Log old data in buffer. 


OLZROBLO 


Physical replace 
code 51 
2-16.2 


oe 


DLZDLDOO — DLET/REPL Module 


Extended Description 


Extended Description Routine Label 





2. Index Maintenance needs.the actual 
concatenated key of this segment. 
If return code is NE, we still continue 
processing because index is now set 
as per new data. Work area is freed. 


IDOREPL10 


. DBLPHYR+DBLPHYR0 is set in 
first byte of PSTWRK1. 





OUTPUT 


Delete Work Area 


PSTWRK1 


code, data 
length 


DLZDLDOG 


Routine 


Label 


Figure 2-11.2. Replace Data (part 2 of 2) 











INPUT PROCESS 3 OUTPUT 
User 1/0 5, Move new data to buffer. Buffer 
new data 
6. Log new data. ant 
== 
Physical 
replace code 50 
2-16.2 
7. Mark buffer altered. PSTFNCTN 
==! 
BFALT label 
2-15 
8. Return 
Return to 
Fig 2-11.1 
DLZDLDOO — DLET/REPL Module DLZDLDOO 
Extended Description ; Routine Label Extended Description Routine Label 
5. The address of the user’s 1/0 
area is in PSTUSER. 
6. DBLPHYR is set in PSTWRK1 REPL92 
with the length of the segment. 118 


DO! 
REP’ 
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Figure 2-11.3. Replace Segment 
INPUT 


From Fig. 


2-11.2 
Step 3 


Buffer 






Buffer PSTUSER 


Eee) A (new data) 
on 





DLZDLOO00 — DLET/REPL Module 


Extended Description 


2. When the data is previously separated 
and the new data length is less than 
the old length, an attempt is made to 
telocate the new data adjacent to the 
prefix. 


. When the old segment size is not large 
enough for the new segment, the data 
is separated from the prefix. A pointer 
overlays the first four bytes of the old 
data and will be used to find the new. 


. When the new data will fit in the old 
location, it is moved over the old data 
with any excess bytes being freed. 


All changes to the data base have 
been logged. 





PROCESS 


(REPVLS) 


> 1. Compress new data if required. 


2. If data separated from prefix, 
replace separated data and go 
to step 4, 


=) 


REPVLS50 


Replace 
separated 
data 







3. If new length is GT old 
length and GT minimum, sepa- 
rate data from prefix and go 


to step 6. 


REPVLS30 
Separate data 
from prefix 


4. If length is equal to old 
length, or if both are LE 
minimum, replace old data and 
go to step 6. 


a= REPVLS20 


Replace 
old data 








5. If new length is LT ofd 
length, replace old data. 


To Fig 2-11.2 
Step 7 


OUTPUT 


Buffer 


new dat 


Buffer 








Figure 2-11.4. HISAM Delete 
INPUT PROCESS 


From Fig. 
2-11 Step 3 


(DLETE) 
1, Get segment to be deleted. 


f=) 


DLZDBHOO 


DB Buffer 
Handler 






DMBORG oo —— — F ———— > 2. If data base is simple HISAM, 


Ean) A. Indicate physical delete 
for Logger. 


B. Indicate PST erase for 
Buffer Handler. 


3. If data base is HISAM, 
A. Set proper delete bits. 


B. Indicate logical delete 
for Logger. 


C. Indicate PSTBFALT for 
Buffer Handler. 


4. Log the change. 


== 


DLZRDBLO 


DB Logger 
2-16 


5. Update the data base. 
eo] 


DB Buffer 
Handier 
2-45 











DLZDLDOO — DLET/REPL Module 


Extended Descripti 


Extended Description Routine Label 


1. 


2. The entire segment to be erased is 
logged. 


3. Only the segment code and delete 
byte are logged. 





OUTPUT 





PSTFNCTN 


bstznase_] 


Buffer Poot 


| 


PSTWRK1 
IOBLLGDLT 


PSTFNCTN 


PSTBFALT 


i 
OF 


LOGOUT 


To Fig 2-11 
Step 5 
OLZDLDOO 


Routine Label 
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Figure 2-11.5. HDAM/HIDAM Delete 


INPUT PROCESS OUTPUT 


From Fig. 
2-14 Step 4 


(DELTHD) 
PSDBs ——— 1. Scan PSCBs looking for LC 
A. If starting segment is an 
ell LC retrieved from togical 
path, mark him LD, is pos- 
sible. 
B. Ensure no violations of 
the physical delete rule. 
Delete 
2. Build work area for path. Work Aree 
Buffer 3. Read and process all segments 


from top to bottom. Determine 
how to delete LC or LP. 


4. At bottom, S, Butter 


= 





5. Retum 


To Fig 2-11 
Step 5 


DLZDLDOO — DLET/REPL Module 
Extended Descriptio 


LC will be marked logically 
deleted (LD) if delete rule = 
physical or logical and segment 
not PD (physically deleted). 


A logical parent can have no 
active logical children. An LC 
must not be accessable by his 
logical path. 


. This is needed to remember where 
we are during scan of data base and 
to build concatenated keys. 


. LCF and LCL pointers in logical 
parents, and LTF and LTB pointers 
in logical children, will be updated 
now. 


. Segments may be marked deleted or 
physically removed. 


. All work sets are freed. 
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Figure 2-11.6. Delete Segment (Part 1 of 2) 


INPUT PROCESS 
From Fig, 
241.5 
Step 4 
{REQBOTM) 
OMBELAG_. }-————}? 





DLZDLDOO — DLET/REPL Module 


Extended Descrip 





. If the index source segment (ISS) has [DLZDLDDO {REQBOi 


been marked physically deleted (FD), 
no index maintenance is performed. 
Delete processing continues with 

blank or ‘NE’ status from DLZDXMTO. 


- Asegment will not be physically 
removed if still required because 
of a logical relationship. Note that 
the delete work area and DL/I blocks 
(primary PSDBs) are used as input 
to every step. 


. If segment is an LC or LP, the logical DLZDLDDO |FREESPCE 
DLZDLDAO {FRSPCOO 


relationship pointers (LC, LP, and 
LT) have already been changed. 


. The current position (SDBPOSC) is 
marked ‘lost’ in this caller’s PCB. If 
any other PCB has position on this 
segment, the position should be 
changed to bypass this segment. 


. DLZDHDSO makes the log calls for 
the physical delete. 


tion Routine Label 


IDLZDLDAO |PRSPCOS 


DLZDLDAO |FRSPCOSG 


1. If segment is an ISS; delete 
index pointer. 


DLZDXMTO 


index Main- 
tenance 
2-12 


2. If segment cannot be removed, 
mark PD, log, and go to step 
6. 





3. Change all pointers to this 
segment. 


DLZRDBLO 


4. Mark position changes in SDBs. 


5. Free seqment’s space. 


DLZDHDSO 


HD Space 









DB Logger 
2-16 





OUTPUT 


PSTFNCTN 


PSTXMDLT 


Buffer 


Delete 
byte 


SDB 











FsDBPOSC 
SDBPOSN 


PSTFNCTN 


PSTFRSPC 


OLZDLDOO 


SDBPOSP ‘ 


Labe! 





Figure 2-11.6. Detete Segment (part 2 of 2) 
INPUT : PROCESS 


6. If starting segment is not yet 
deleted, get next segment and 


process it. 


DLZDLDOO — DLET/REPL Modute 


Extended Description Routine Label 


6. Next segment is physical 
twins, sibling, or parent. 


DLZDLD0OO | BOTM1B 


7. At end, a final log call is 
made to DLZRDBLO which 
signifies delete is finally 
accomplished. 









ay 


Extended Description 


OUTPUT 


DLZDLDOO 


Routine 


Label 
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Figure 2-12. Index Maintenance 
INPUT 


From Caller 


(See Note} 
PST 
PSTOBPCB 
r - 
— J 





OLZDXMTO — Index Maintenance 


xtended Description 





Note: DLZDXMTO is called from 
DLZDDLEO or DLZDLDOO. 


2. When called from DLZDDLEO, the 
function is ISRT, ASRT, UNLD, or 
REPL. When called from DLZDLDOO, 
the function is REPL or DLET. 
PSTWRK1 contains the PSDB address 
of the index source segment for DLET 
or the LSDB address of the index source 
segment. 


A. Construct and insert all index 
pointer segments for this index 
source segment that should not 
be suppressed. : 


Construct and delete all old 
index pointer segments existing 
for this index source segment. 


PROCESS OUTPUT 


1. Save registers and PST fields. Work area 


A. 


3. Restore registers and PST. 


P 2. Analyze function. 


If ISRT/ASRT, insert new 
index pointer segment. 


(amp LINSERT 


Insert New Index 
Target Segment 
2-12.1 





If DLET, delete old index 
pointer segment. 


= 


If REPL, replace index 
pointer segment. 


LOELETE 
Delete Old index 


Target Segment 
2-12.2 






LREPL 


Replace Index 
Target Segment 






If UNLD, insert FF-key. 


Gama) LUNLOAD 


insert FF-keys 
2-12.4 








PST 
PSTIOQPRM 


PSTDSGA 
| psTBYTNM | BYTNM 
PSTDBPCB 


DLZDXMTO 






Return to Caller 


2. (con’t) 


C. Construct all old and new index 
pointer segments that can be con- 
structed from that index source 
segment, Depending on the data 
changed and the status of sup- 
pression, delete old index pointer 
segment, or insert new index 
pointer segment, or delete old 
and insert new index pointer 


segment, or replace data of index 
pointer segment. 


If DLBL card is provided, write LUNLOAD 
index pointer segment with all 

FF-keys for all index data bases 

to belonging to this PCB. 





Figure 2-12.1. Insert New Index Target Segment 
INPUT 





From Caller 


Work area 


See note 


DOLZOXMTO — tndex Maintenance 


Note: The input control blocks are used 
in all process steps. The output work area 
is modified in all process steps. 


1. 


Find SECLISTs and PSDBs of index 
source segment, index target segment, 
and index pointer segment and save 
their address in work area. Decide if 
primary or secondary has to be built. 
Find length of index pointer segment, 
sequence field, segment length, and 
protected data length. 


. For primary indexes, move HIDAM 


root sequence field from user I/O 
area to work area. For secondary 
indexes, construct SRCH, SUBSEQ, 
and DDATA fields. 


. When the index entry has to be 
suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the index pointer segment 
is not inserted. 


PROCESS OUTPUT 
1. Find secondary lists and length Work area 
of index pointer segment. See note 


2. Construct index pointer segment. 


3. If index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 


4. If initial load, put index 
pointer segment. 


5. If Not Load mode, call DLZDLA00 
to insert index pointer segment. 


eee DLZDLAOO 
Cali Analyzer 
28 


6. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 





Return to 
Calter 


OLZDXMTO 


Build temporary blocks: 

@ SDB 

@ Segment name=sequence field name 
of index pointer segment 

@ Update Index Maintenance JCB 
and DSG. ‘ 


. If DLBL cards are provided, write 
index pointer segment to index data 
base and call DLZDLOCO to open 
index data base if not open yet. Other- 
wise, write index pointer segment to 
workfile and call DLZDSEHO to open 
the workfile. 


. Prepare DL/I call list to call 
DLZDLA00 with an *X call. 


. When the last secondary list is 
reached, exit is to LRETURN. On 
error in secondary lists, exit is to 
LABND772 (abend code. 772). 





Wa J0 4320d01g—yel9}8 A] pesussry 


wonesedg jo poyep] 77 uOTIIEg 


16-2 


Figure 2-12.2. Delete Old Index Target Segment (Part 1 of 2) 
INPUT 


From 


Figure 2-12 
Step 28 


See note 





DLZDXMTO — Index Maintenance 
Extended Description 


Note: The input control blocks are used 
in all process steps. The output work area 
is modified in all process steps. 


1, Find SECLISTs and PSDBs of index 
source segment, index target segment, 
and index pointer segment and save 
their address in work area. Decide if 
peicunry or secondary has to.be built. 

ind length of index pointer segment, 
sequence field, segment length, and 
protected data length. 


. For primary indexes, move HIDAM 


root sequence field from user I/O 
area to work area. For secondary 
indexes, construct SRCH, SUBSEQ, 
and DDATA fields. 


. When the old index entry has to be 
suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the index pointer segment 
is not inserted. 





PROCESS a 


OUTPUT 


Work Area 


1. Find secondary lists and length ‘See note 


of index pointer segment. 


2. Construct index pointer segment. 


3. If old index pointer segment is 


suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 


4, Call DLZDBHO0 to read old 
index pointer segment. 


=) 






5. Change delete flag and zero 


BLZDBHOO 


OB Buffer 
Handier 


Nn 
= 
n 


pointer in index pointer seg- 


ment. 


6. Call Logger to fog index 
pointer segment changes. 


= 






3. 


DLZROBLO 


OB Logger 
2-16 


DLZDXMTO 


(con’t) 
Build temporary blocks: 
@ SDB 


@ Segment name=sequence field name 
of index pointer segment 


‘@ Update Index Maintenance JCB 


and DSG. 


. The Buffer Handler is called (PSTSTLEQ] LGOXNS 


to find the old index pointer segment. 
If it is not found, or it is already 
deleted, or the pointer or key are not 
correct, an NE status code is returned 
to the caller. 


. Delete flag is set to CO. 


. Chain maintenance and logical delete 


calls are made to data base module. 








Figure 2-12.2. Delete Old index Target Segment (Part 2 of 2) 
INPUT PROCESS OUTPUT 


7. Catl DLZDBHOO to write back the 
changed index pointer segment. 


8. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 


To Fig 2-12 
Step 2B 





DLZDXMTO — Index Maintenance DLZDXMTO 


Extended Description Routine Label Extended Description at Routine 


7. The Buffer Handler is called 
(PSTBFALT) to write the 
ga index pointer segment 

ick. 


8. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 


Label 
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Figure 2-12.3. Reptace Index Target Segment (Part 1 of 2) 
INPUT From PROCESS OUTPUT 


Figure 2-12 
Step 2C 





DLZDXMTO — Index Maintenance 


Extended Description 


Note: The input control blocks are 
used in all process steps. The output 
work area is modified in all process 
steps. 


1. Find SECLISTs and PSDBs of 
index source segment, index 
target segment, and index 
pointer segment and save their 
address in work area. Decide 
if primary or secondary has 
to be built. Find length of 
index pointer segment, sequence 
field, segment length, and pro- 
tected data length. 


. Construct old index pointer seg- 
ment from SRCH, SUBSEQ, and 
DDATA fields. 


. Construct new index pointer 
segment from SRCH, SUBSEQ, 
and DDATA fields. 


See note 


1. Find secondary lists and length Work area 
of index pointer segment. See Note 


2. For primary index, continue with 
step 1. Otherwise, construct old 
index pointer segment. 


3. Construct new index pointer 
segment. 


4, Replace index pointer segment: 


A. If old and new index pointer 
segment are suppressed, go to 
step 1 and take next second- 
ary list. 


B. If old index pointer segment 
was suppressed, insert new 
index pointer segment. 


C. If old and new index pointer 
segment were not suppressed 
and SRCH and SUBSEQ fields 
not changed, replace index 
pointer segment. 


D. ff the old and new index 
pointer segment were not 
suppressed and SRCH and 
SUBSEQ fields were changed, 
delete old index pointer seg- 
ment and insert new index 
pointer segment. 


DLZDXMTO 


Routine Label Extended Description Routine Label 
4. Replacing of the index pointer 
is done in different ways, 
depending on suppression of 
old and new index pointer 
segment. 


A. When both old and new index 
pointer segments are suppressed, 
no action takes place. 


Continue with insert sub- 
routine 


DLZDBH00 is called to read 

the old index pointer segment. 
On errors, NE is returned. The 
data base log module is called 

to log the old index pointer 
segment, and after the change of 
the DDATA fields, the new index 
pointer segment. DLZDBHOO0 is 
called again to write the index 
pointer segment back 


(PSTBFALT) 








Figure 2-12.3. Replace Index Target Segment (part 2 of 2) 
INPUT PROCESS 





4. (con't) 


E. If the old index pointer 
segment was not suppressed, 
but the new one was, delete 
the old index pointer segment. 


5. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 


To Fig 2-12 
Step 2C 


OLZDXMTO — Index Maintenance 


Extended Description Routine Label 


Extended Description 


5. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 


DLZDXMTO 


Routine 








Label 
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Figure 2-12.4. insert FF-Keys 
INPUT 





From Fig. 
2-12 Step 
2D 


See Note 


PROCESS OUTPUT mm 


1. Loop through all PSDBs to Work area 
find index source segment. 
See Note 


2. Find length and keylength of 
index pointer segment. 


3. Move FF-key to index pointer 
segment. 


4. Build temporary blocks. 
5. Write the index pointer segment 
2 the data base or to the work- 
ile. 


6. If last PSDB, return. Otherwise, 
go to step 1 and get next PSDB. 


DLZOXMTO — Index Maintenance 


Extended Description Routine Label 


Note: The input control blocks are used 
in all process steps, The output work 
area is modified in all process steps. 


1. DLZDDLEO passes the LSDB 
address of the root segment with 
an UNLD call. The DDIR 
address is used and all PSDBs 
in that DMB are inspected if an 
index exists. 


. Find length of index pointer 
segment and its key length. 
Decide if primary or second- 
ary index has to be built. 


. Move FFs in the length of the 
index pointer segment sequence 
field to the index pointer 
segment. 





To Fig 2-12 
Step 3 


OLZDXMTO 


Extended Description 
4. Build temporary blocks: 
@ SDB 
@ segment name = sequence 
field name of index 
pointer segment 


@ update index maintenance 
JCB and DSG. 


. Write index pointer segment to 
index data base if DLBL cards 
are provided. Call DLZDLOCO 


to open index data base if not 
yet open. 








Figure 2-13. HD Space Management 


INPUT PROCESS OUTPUT 
From Catler 
Dsc PST io 1 along work fields in _ 
aie a 


DMB a — 


DMBFBA 


PST —— ee fe 


[PSTFNCTN | NCTN 


DLZDHDSO — Space Manager 
Extended Description 


1. PSTWRK1 contains the length of the 
space to be obtained or freed. 


2. A. If the device is FBA, the device 
characteristics must be obtained 
and the number of Cls per track 
and CIs per cylinder calculated. 


Get space in a data base Cl for 
the specified segment as close as 


possible to a specified base RBA. 


The caller passes the address of 
the involved segment’s PSDB in 
RS and the base RBA in 
PSTBYTNM. 


Get space in a data base CI for 
the specified segment as close as 
possible to a root anchor point. 
The caller passes the address of 
the involved segment’s PSDB in 
RS5 and the CI number/RAP 
number (in the format BBBR) 
of the involved root anchor 
point in PSTBYTNM. 


PSTACBNM 


2. Test for FBA. 
A. If yes, go to Figure 2-13.5. 


3. Determine function requested. 
A. If Get Space, go to Figure 2-13.1. 


B. If Get Space Close to Root 
Anchor Point, go to Figure 





DLZDCI00 


DLZGGSPC 


2-13.1. 
If Free Space, go to Figure 2-13.2. 


If Modify the Bit Map, go to 
Figure 2-13.3., 
E. If Backout Get Space, go to 
Figure 2-13.4. 
F. if Backout Free Space, go to 
Figure 2-13.2. 
G. If Backout Modify Bit Map, go to 
Figure 2-13.3. fo N 
4. Exit. 
Return to 
Caller 
DLZDHDsO 
Routine Label Extended Description Routine Label 





3. (con’t) 


C. Free space that has been allocated |DLZFRSPC 
for the specified segment in a 
data base CI. The caller passes the 
address of the involved segment’s 
PSDB in RS. 


Turn on or off the bit in the Bit |DLZDHDSO| FIXBTMP 
Map representing the specified CI 

of a data base. The caller specifies 

the CI number in PSTBLKNM. 


Backs out a previously processed |DLZDHDSO 
‘Get Space’ call. 


Backs out a previously processed |DLZFRSPC 
‘Free Space’ call. 


Backs out a previously processed |DLZDHDSO| FIXBTMP 
‘Modify Bit Map’ call, 
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Figure 2-13.1. Get Space (Part 1 of 2) Figure 2-13.1. Get Space (Part 2 of 2) 








INPUT PROCESS . OUTPUT tNPUT. PROCESS OUTPUT 
From Figure 
213 Step 3 ® ACI in the same cylinder 
: that has a 1-bit in the Bit 
(See Note} Map. 
—-— -— 1. Get the Cl into the buffer DL/t Buffer © ACI being within the delta 
pool that is pointed to by cylinders that is in the 
the base RBA. buffer pool. 


DLZOBHOO 


®@ ACI being within the delta 


Z oUINJOA ‘enue 91907 SA/SOCd I/1d 






DB Buffer 
Handler 


cylinders that has a 1-bit 
in the Bit Map. 


ny 
= 
a 


@ The next available Ci at 
the end of the data base. 


— —- 2. Determine if enough space is 
Data Base Cl . . PST 
available in this Cl. If 
He — there is enough, store RBA of ESTE NM 


space and, if necessary, update 








the Bit Map. Cl number 4 
Cl number 1 : 
: 5. If no space is found, store pst 
3. if no space is found, go to S 
stan 5 g the error code. 
6. Exit. 
— —. By 4. Locate another data base Ci, . 
Buff get it into the buffer pool, 
Profixes and go to step 2 for the 
eae | following: 
. To Fi 
© ACI that is on the same LAA eh 
Ci number 1 track that is in the buffer 
pool. 
@ ACI that is on the same 
cylinder that is in the 
buffer pool. 
@ ACI on the same track that 
has a 1-bit in the Bit Map. 
DLZDHDSO — Space Manager DLZDHDsoO BLZDHDSO — Space Manager OLZDHDsO 
Extended Description Routine __Label Extended Description Routine __Label Extended Description Routine: —_ Label Extended Description Routine Label 





2. (con’t) 
®@ the size itself 
® the size+minimum segment length 
@ the size+2. 
A Bit Map Change is necessary if the 


Note: For the functions ‘Get Space’ and 
‘Get Space Close to RAP’, the following 
esects are used: 

Main routine: DLZDHDSO 


DLZDHDS0 calls DLZGGSPC. 


5. Aretum code of X‘0C’ will be returned 
to the caller. 


DLZGGSPC calls DLZRCHBK, 
DLZLLCLC, DLZRRHPL, DLZRRHMP, 
DLZMNLCT, and DLZMMUDT. 


DLZRRHPL calls DLZRCHBK. 
DLZRRHMP calls DLZRCHBK. 


2. If distributed free space has been 
specified, a check is made if this block 
is to be left free. If not, a check is 
made to see if a percentage of this 
block is to be left free. If so, this 
percentage is added to the space 
requested. 


To determine if enough space is 
available in a CI, the FSE’s in this 
Cl are checked. If there is more than 
one FSE in a CI, the free space with 
the largest of the following values 
that will not cause a Bit Map change 
is taken: 








data base CI cannot accomodate the 
maximum size segment because the 
available space has been used. The 
Bit Map update is performed by 
DLZMMUDT. 

. The calculation of the CI numbers 


for a given range is done by routine 
DLZLLCLC. 


Searching through the buffer prefixes 
is done by routine DLZ L. 


Searching through the Bit Map is done 
by routine DLZRRHMP. 
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Figure 2-13.2. Free Space 
INPUT PROCESS 


From Figure 
2-13 Step 3 


(See Note) 


PST 


PSTBUFFA 
PSTBLKNM 


b> 1. Scan through the chain of FSEs in the 
specified data base Cl to find the FSE 
which applies. 


DL/I Buffer 


b, 2. Check if there is more free space on the 
right and/or left side of the segment to 


r- 
| be fread. 
| 
DL/ Buffer ——|— Bie 4, 3. Build a new FSE and/or change existing 
Feri). 


4, Log the change of the data base Cl. 


—— DLZROBLO 


OB Logger 
2-16 





5. Issue BFALT call to the Buffer Handler. 


= 


OLZDBHOO 


DB Buffer 
Handler 
245 










Cl number 1 6. If necessary, update the Bit Map. 


7. Exit. 


OUTPUT 


OL/I Buffer 


18) 
8 


Cl number 1 


To Figure 
2-13 Step 4. 





DLZOHDSO — Space Manager 


Extended Description Routine Label 





Note: For the functions ‘Free Space’ 
and ‘Backout Free Space’, the 
following csects are used: 


Main routine: DLZDHDSO 
DLZDHDSO0 calls DLZFRSPO 


DLZFRSPO calls DLZMMLCT 
and DLZMMUDT. 


1. The scan will be finished when a FSE 
with a higher offset than the one in 
PSTOFFST is reached, or, when the 
end of the FSE chain is reached. 


. The purpose of this check is to find 
out whether there will be a contig- 
uous piece of free space after process- 
ing the current Free Space call. - 


. A Bit Map change is necessary if the 
data base CI can accomodate the 
maximum size segment after process- 





DLZOHODSO 


Extended Description Routine —_ Label 


6. (con’t) 


ing the Free Space call. In this case, 
the appropriate bit in the Bit Map 
has to be turned on. The Bit Map 
update is performed by routine 
DLZMMUDT. 








Figure 2-13.3. Modify Bit Map 


INPUT PROCESS 


From Figure 
2-13 Step 3 


{See Note) 


1. Get the Cl number of the Bit 
Map that applies. 


eee 
2. Locate this Cl in the buffer 
pool. 
(ux 
DB Buffer 
Handler 
2-15 


ACB Ext. PST 







DL/I Buffer 3. Apply the change to the Bit 


= 
PST 


4. Log the change of the Bit Map. 


(o=a} 


OLZRDBLO 


DB Logg 
2-16 








er 5. Mark the buffer containing 
CL] the Bit Map as altered. 
a] 
DB Buffer 
Handler 





2-15 






DLZDHDSO — Space Manager 





Note: For functions ‘Fix Bit Map’ and 
‘Backout Fix Bit Map’, the following 
csects-are used: 


Main Routine: DLZDHDSO 


DLZDHDS0 calls DLZMMLCT and 
DLZMMUDT. 


1. This step is performed by routine 
DLZMMLCT. 


2. A ‘Byte Locate’ call is issued. DLZDBHOO 


3. The update of the Bit Map is performed 
by routine DLZMMUDT. 


5. A ‘Buffer Alter’ call is issued. 


DLZDBHOO| 


Extended Description 





OUTPUT 
PST 


PSTBLKNM 


DL/! Buffer 


ai 


Log Tape 
Buffer 
Prefix 
To Figure 
2-13 Step 4 
DLZDHDSO 
Routine Label 


Wall Jo 4q2adoig—yepozey] posuesry] 


96-72 


Z SUINJOA ‘TenueP 91807] SA/SOC I/Td 





Figure 2-13.4. Backout Get Space Figure 2-13.5. FBA Support Device Characteristics Routine 
INPUT PROCESS OUTPUT INPUT j PROCESS OUTPUT 
From Figure bey pits > : 
2-13 Step 3 
AMD Pst 
Pst , one ee [amopsn [> 1. Issue SHOWCAT to obtain volume PSTSWKAR 
— — ® 1. Scan through the FSEs of the AOFF serial number of data base. 
given Cl and find the FSE 
eS that applies: = = 2. Issue GETVCE to obtain devi [reveatan | 
lestvisk [> 2, Issue to obtain device 
DL/I Buffer characteristics. 
2. If the previously freed space pst 
cannot be found, store error 3. fs device FBA? 
code and go to step S. 
4. If no, issue message DLZ8311 and 
end task. 
ad ee eee ow 
is not in the middle of a 
pred, go t0 sta 5. 5. If yes, calculate Cls per track and 
. Cls per cylinder 
. | DMBCITRK | 
OMB 
DL/I Buffer 4. Create a dummy FSE. DL/I Buffer 6. Calculate scan value. 
8 7. Exit. : 
5. Change the FSE(s) to reflect 
the aquisition of the space. 
To Figure 
: 2-13 Step 3 
6. Prepare the information for PST 
logging the data base change. PSTWRK1-4 
Buffer 7. Mark the buffer as altered. Buffer 






I 


Prefix Prefix 
(emma) [bizonico — 
OB Buffer 
DLZDHDSO0 -- Space Manager DLZDHDSO 


8. Update the Bit Map if necessary. 


Cl number 1 - Ch number 1 Extended Description Routine Labet Extended Description Routine Label 
: 
9. Exit. To Figure 
2-13 Step 4 
DLZDHODSO - Space Manager DLZDHDSO 
Extended Description i bel 





Note: This function backs out a Free 
Space call processed previously. The 
following csects are used: 

Main routine: DLZDHDSO 


DLZDHDSO0 calls DLZRCHBK. 


8. A Bit Map update is necessary if the 
data base CI cannot accomodate the 
maximum length segment after backing 
out the previously processed Free 
Space call. The Bit Map update is 
performed by routine DLZMMUDT. 


2. PSTOFFST contains the offset to the 


part of the data base CI which was 
freed during the Free Space call to be 
backed out. 


. Areturn code of X‘OC’ is stored in 
PSTRTCDE. 


. A ‘Buffer Alter’ call is issued to the 
Buffer Handier. 
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Figure 2-14. Open/Close 
INPUT 


From Caller 


7 


a = 


<n 


ae ee 


DLZDLOCO — Open/Close 


Extended Descripti 


1. This function is used by the utilities 
DLZRDBCO and DLZURGPO. It is 
also used by DLZDLAOO when the 
first data base call to a not open data 
base is issued (batch only). For 
PROCOPT=L, only one data base is 
opened. For all other processing 
options, all related data bases are 
opened as well (index data bases and 
logically related data bases). 


. DLZDLROO uses this function for 
positioning a HSAM data base at the 


start point. It is also used by 
DLZURDBO. It opens only one ACB, 
ie. for HISAM only KSDS or ESDS. 


. DLZDLD00 uses this function when it 
finds a logically related data base that 
is not opened (this can happen because 
of delete sensitivity propagation). 


PROCESS 


Note: For each of the following 
steps, DOCOCB (Figure 2-14.1} 
is cafled. 


1. If PSTFNCTN = PSTOCPCB, 
loop through all SDBs and 
secondary lists to find all 
ACBs to be opened. 


_2. If PSTFNCTN = PSTOCDCB, 


open this one ACB. 


3. if PSTFNCTN = PSTOCDSG, 
process all ACBs in DSG. 


4. if PSTFNCTN = PSTOCDMB or 
PSTOCALL, process all ACBs 
in one DMB or alt ACBs in all 
DMBs. 


Return to 


Caller 


4, PSTOCALL + PSTOCOPN : 


DLZOLIOO uses this call to open all 
data bases in the system eligible for 


initial opening (online only). 
PSTOCALL + PSTOCCLS : 


This call is used to close all ACBs in 
the DL/I system (e.g. DLZDLAO00). 


PSTOCDMB : 


This call is used by DLZOLIOO for 
deferred opening (online). It is also 
used by DLZDXMTO and by data 
base utilities. It opens/closes one 


ACB (two ACBs for HISAM). 


OUTPUT 


ACB 
Extension 


OMBOFLGS 


JCB 


DDIR 


DDIRCODE 


DLZDLOCO 








Figure 2-14.1. Open/Close DOCDCB Routine 
INPUT ar 





PROCESS 


1, Issue DOS OPEN. 


2. Issue ‘MODCB’ to update the 
exit list. 


3. Issue ‘SHOWCB’ and compare 
DMB entries to VSAM define 
entries. 


4. For an empty ESDS file, write 
control record. 


5. Log the open record. 


6. For HISAM KSDS, go back to 
Step 1 to open ESDS. 


7. Call compression routine, if 


OUTPUT 


ACBEXT 


[pmerics 





necessary. 


DLZDLOCO — Open/Close 


Extended Description Routine Label 


1. This part is called from all steps of 
Figure 2-14 for opening. If the data 
base is open, return immediately. 
Immediate return is also done when the 
call is PSTOCALL and initial opening 
is not planned. Unsuccessful opens 
have return error code in PST and flag 
in JCB. ‘DLZ020P is issued. 


. The exit list is updated with the 
address of the error handling routines 
of DLZDBHOO. 


. Control interval size, relative key 
position, and key length of DMB is 


compared to VSAM catalog entries. 
MISMATCH: DLZ0251, DLZ0271, 
and DLZ028I. 


For HISAM, the number of logical 
records in VSAM catalog has to be 
zero for PROCOPTS=L. For HD, the 
high used RBA is inspected. Message 
‘DLZ023I is issued for conflicts. 


4. The first control interval is written 


Return to 
Fig 2-14 


DLZDLOCO 


Extended Description Routine Label 





DOCFIRST |NOTHIDAM 
(for HISAM, as many records as fill 

one CI). It contains DL/I control 

information. For HD, the ACB is 

closed and opened again to simulate 

‘NOT LOAD’ to VSAM. 


. All PSDBs are inspected to determine 


if a compaction routine with ‘INIT’ 
specified exists. « 
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Figure 2-15. DB Buffer Handler (Part 1 of 2) Figure 2-15. DB Buffer Handler (Part 2 of 2) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Caller 
PST 2. For HIDAM index, Simple HISAM, 
” DLZDBHOO: or HISAM (ESDS or KSDS). 
— ahame ata 
_| Flag Name 1. For HDAM or HIDAM: PSTBYLCT 02 Read a record. 
PSTBYLCT Byte locate. PSTSTLEQ 09 SETL equal. 
(See Figure 2-15.1, Step 1) : 
SETL begin. 
PSTBKLCT Block locate. rea ms = 
(See Figure 2-15.1, Step 4) PSTWRITE 08 Write a new record to 
‘ HISAM ESDS. 
PSTBYALT Byte alter. 
(See Figure 2-15.2, Step 1) Insert a record by key into 
a HISAM KSDS. 
Mark buffer as altered. 
(See Figure 2-15.2, Step 3) Insert record(s) sequentially 
into a HISAM KSDS. 
Get buffer space. 
(See Figure 2-15.3) Write a record by RBA to a 
KSDS or ESDS. 
Free buffer space. 
(See Figure 2-15.9) Read the next record in a 
KSDS. 
Mark buffer as empty. 
(See Figure 2-15.9) Erase a record from a KSDS. 
Purge buffers. 
(See Figure 2-15.10) 
Return to 
Caller 
DLZOBHOO0 ~ Buffer Handler CSECT DLZDBHOO OLZDBHO0 — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine —_Label Extended Description Routine Label Extended Description Routine _Label Extended Description Routine Label 


Locate relative byte number. Read a record by RBA from 


a KSDS or ESDS. 
Locate relative block number. 

Get a record by root key from 
Locate a relative byte number a KSDS. 


and mark buffer altered. 
Read the record containing 


the first root segment in a 
KSDS. 


Mark a buffer containing 
data as altered. 


Purge all buffers altered by 
a task, 
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Figure 2-15.1. Byte Locate/Block Locate Figure 2-15.2. Byte Alter/Buffer Alter 
INPUT PROCESS OUTPUT INPUT From PROCESS OUTPUT 











: ' 
Figure 2-15 Step 1¢ 
Step 1A 
BYLCT: BYALT: 
PST —_——-—5 
———} 1. Convert the given RBA to a VSAM 1. Convert the RBA to a block ; 
control interval (Cl) number and number and an offset. 
an offset within the control BL 
interval. PST 2. Locate the buffer address. 
2. Locate the buffer address. = 
2-15. 
2-15.4 
From 
Figure 2-15 
Step 1D 
3. Go to Step 6. 
From 
Figure 2-15 BFALT: 
Step 1B 
——— FP 3. Turn on the bit in the buffer 
BKLCT: prefix to indicate that the 
buffer was modified or altered 
4. Locate the buffer address. by this user. : BFFR 
(om) 
LOCATE Routine 4, Exit. 
215.4 
———-} 5. Convert the Cl number to a RBA pet Figure 2-15 
; : 2 
6. Exit. 
To 
Figure 2-15 
Step 3 
DLZDBHOO — Buffer Handler CSECT DLZDBHOO DLZDBHOO — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Label Extended Deseri Routine Label Extended Description Routine Label Extended Descri Routine Label 





1. The relative byte number for the DLZDBHO0 | CONVER 


e 1. Byte alter is a combination of byte 
control interval is retrieved from 


locate (Figure 2-15.1, Steps 1-3) and 
buffer alter (Figure 2-15.2, Steps 3 
and 4). 


. The same as in Step 1 except that 
a control interval number is passed 


. The bit that is turned on is in the DLZDBHO00 |MARKALT 
in PSTBLKNM. 


2-byte field BFFRUSID. The 16 bits 
correspond from right to left to the 
user ID indicated in the PPST. If a 
user ID higher than 16 is assigned, 
two or more users share the same 
bit. : 
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Figure 2-15.3. Get Buffer Space 


Figure 2-15.4. LOCATE Routine 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From From 
Figure 2-15 Figure 2-15.1 
Step 1E or 2-15.2 
GBSPC: LOCATE: 





1, Get the address of the selected 
buffer subpool, 


» 2. Search the buffer prefixes of 


the subpool to find a buffer 
that can be used. 


3. If a reusable buffer cannot be 


found, wait until one becomes 
available. 


(and DLZOWAIT 


Online Wait Routine 
26.8 












| 
a eee 


= 


1. Search buffer prefixes for the 
requested block. 


LOCATE Buffer Search 
(== 2165 


2. Check if the predecessor in the 
write chain is in the buffer 
pool. Write buffer if necessary. 


LOCATE Buffer Write 
(=e 2466 


3. If the block is new, put the 
buffer on the write chain and BFFRs 
mark it as altered. 


U) 


Data Base 





ll 





BFPL 4. Move the control interval 1D 
into the buffer prefix. BFFR 
lsrewnacr | [eFeRcuo | 
LOCATE New Block 
BFFR ‘ : ub Processing ° 
5. If the buffer is busy, wait 216.7 
for it. 
oa) 4, If the block is not new, read Butter Poo! 
the block into the buffer. Control Block 
ae 
LOCATE Read 
= 215.8 
ffer Pool s *. 
cai Blocks 6. Write the buffer if necessary. 
oe |e 6 Ext 
= 7. Mark buffer ‘non-reusable’. > BFFR 
[ ] To 
8. Put the address and the size a Figure 2-15.1 
of the buffer into the PST. PST : or 2-15.2 
DLZDBHOO — Butfer Handler DLZOBHOO 
zs PSTBYTNM 
9. Exit. 
To 
Figure 2-15 
Step 3 
DLZDBHOO — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Extended Description Routine 








1. The subpool information table (SBIF) 
is used to find a buffer subpool with 
buffers that contain the least number 
of bytes needed for this space 
request. 


2. Buffers that are marked non-reusable 
or are permanent write error buffers 
cannot be used. 





mt 
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Figure 2-15.5. LOCATE Buffer Search 


INPUT PROCESS 








LOCATE: 


1. Search the buffer prefixes for 
the requested data base Cl 
(Control Interval). 


A. If the Ct is not found, go 
to Step 4. 


B. If the Cl is found as pending 
in the buffer pool, ENQ on 
this Cl. After control is 
returned, go back to Step 1. 


C. if the CI is found in the 
buffer pool and is not busy, 
go to Step 2. 


D. If the Cl is found in the 
buffer pool and is busy, ENO 
on this Ci. After control is 
returned, go back to Step 1. 


2. Pass the buffer to the requestor. 


ae => 
SBIF. [3 4. Search the use chain from top 
| bottom for a buffer that can 
—-4 be used. 


- ! 
ES L_4 5. Hf no buffer is available, ENO 


on the pending Cl of the buffer 
on the bottom of the use chain. 
After control is returned, go 
back to Step 4. 


6. Exit. 


DLZDBHO00 -- Buffer Handler CSECT 


Extended Description Routine Label Extended Description 


2. Put the buffer prefix address into 
PSTBUFFA and the buffer address 
into PSTDATA. 


. A buffer can be used if: 


® It isnot marked 
non-reusable. 

@ It is not a permanent 
write error buffer. 


® It is not currently 
enqueued for a pending CI. 





OUTPUT 
PST 
PSTDATA 
Return to 
Caller 
To 
Figure 2-15.4 
Step 2 
DLZDBHOO 
Routine Label 





Figure 2-15.6. LOCATE Buffer Write 


INPUT PROCESS 
From 
Figure 2-15.4 
Step 2 
BUFFOUND: 











 ___~> 1. Move the Cl identifier into the 
buffer prefix of the buffer 
that is to be used. 


PsT 
| PSTDMBNM 


2. If the Cl being processed is not 
new, go to Step 5. 


3. if the predecessor in the write 
chain can be found in the buffer 
pool, go to Step 5. 


4. If there is a sequence error, 
exit. 


Pp 





BFFRs 
> 5. If the buffer is busy, ENQ on 
this buffer. 
| > 6. If the buffer does not need to 
be written, go to Step 8. 
Buffer Poot 7. Write the buffer. 
Controt Block 


8. Take the buffer over. 


9. Exit. 


DLZDBHOO — Buffer Handler CSECT 


Extended Description Routine Label Extended Descripti 








. Moving the Cl identifier means 
enqueuing on the pending CI. 


. This check is made to ensure that 
the Cls of the data base get initialized 
in sequence. 


. X‘04’ is stored in PSTRTCDE. 
. A buffer is busy if: 


@ It is being read into. 

@ It is being written. 

©@ It is waiting for its 
predecessor in the write 
chain to be written. 


. ‘Taking over’ a buffer consists of: 


@ Moving the CI identifier from 
BFFRNPST to BFFRPST. 
Turning off BFFRPNNQ and 
tuming on BFFREXNQ in 
BFFRSW. 

Putting the buffer at the 
top of the use chain. 
Clearing the buffer (with 
zeros). 


Return to 
Caller 


To 
Figure 2-15.4 
Step 3 





OUTPUT 


BFFR 


PST 


PSTRTCDE 


Data Base 
BFFR 


CO] Eee crain 


DLZDBHOO 


Routine 


SBIF 


Label 
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Figure 2-15.7. LOCATE New Block 
INPUT 


From 
Figure 2-1 
Step 3 


BFFRs 


eas 
| 
| 
| 
| 
| 
| 
| 
L 
| 
| 
| 
L 


OLZODBHO0 — Buffer Handler CSECT 


Extended Description 


4. The purpose for enqueuing the 
predecessor is to wait for completion 
of the writing. This is necessary to 
find out if the buffer is a permanent 
error buffer. 


Processing 
PROCESS 


5.4 


TESTNEW1: 


1. Search buffer pool for the 


predecessor in the write chain. 
If it is found, go to Step 3. 


2. If the predecessor cannot be 
found, go to system ABEND. 


amu 








DLZABEND 


Abend 845 
2-4.2 


— >. 3. If the predecessor is not being 


written, go to Step 5. 


4. Enqueue the predecessor that is 


being written. 


> 5. If the predecessor is not a 


permanent write error buffer, 


go to Step 7. 


6. Mark the current buffer as a 
permanent write error buffer. 


won 1] 


aul tet 


Then go to Step 9. 


7. Put the buffer on the 
of the write chain. 


8. Mark the buffer as altered. 


9. Put the buffer prefix address 
oan the buffer address into the 
iT. 


10. Exit. 


Routine Label 


Extended Description 


To 
Figure 2-15.4 
Step 5 


OUTPUT 


BFFR 


PST 


PSTBUFFA 
PSTDATA 


DLZDBHOO 


Routine 


Label 


Figure 2-15.8. LOCATE Read 


INPUT 


DataBae [ ~~ + 


RPL 


(VSAM) 


DLZDBHOO — Buffer Handler CSECT 


Extended Description 


From 
Figure 2-15.4 
Step 4 


PROCESS OUTPUT 
ISSREAD: 
1. Read the requested Cl from the 
data base. Buffer Pool 
Control Block 
2. If no read error occurred, go 
to Step 4. 
3. If an 1/O error occurred, put 
return code X‘08’ (PSTIOERR) 
in PSTRTCDE. Then exit. PST 
4, Put the buffer prefix address 
and the buffer address into the 
PST. PST 
lpstBUFFA | 
- 
5, Exit. 
To 
Figure 2-15.4 
Step 6 
DLZDBHOO 
Routine Label Extended Description Routine Labei 
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Figure 2-15.9. Free Buffer Space 
INPUT From PROCESS OUTPUT 
Figure 2-15 
Steps 1F 
and 1G 


PST 
PSTBLKNM | ~4 BFPLSUBD MRKEMPT: 
PSTOMBNM 
PSTACBNM 


1. Get the first buffer prefix in 
the subpool that applies to the 
call. 


~ FP 2. If PST fields PSTDMBNM, PSTACBNM, 

| and PSTBLKNM do not match BFFR 
-—4 | fields BFFRDMB, BFFRDCB, and 

| BFFRCIID, go to Step 4. 

L 


~F 3. If the PST fields match the 
BFFR fields: 


A. Mark the buffer as empty. BFFR 
B. Issue RELPAG macro. 
C. Put the buffer on the bottom 


of the use chain. SBIF 


4. If this is not the last buffer 
prefix, get the next one and 
go back to Step 2. 


To 
Figure 2-15 
Step 3 





, DLZ08HO3 — Buffer Handler CSECT DLZDBHOO 


Extended Description _ 


1. The DMB subpool directory and the 
DMB number in PSTDMBNM are 
used to find the buffer subpool that 
applies to the call. 


. The caller can have the buffer 
handler free: 


@ Only one buffer. (PSTDMBNM, 
es and PSTBLKNM 
0). 


@ Alt buffers of a data set. 
(PSTDMBNM and PSTACBNM 


0; PSTBLKNM = 0). 


@ All buffers of a data base. 
(PSTDMBNM = DMB number of 
the data base; PSTACBNM and 
PSTBLKNM = 0). 
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Figure 2-15.10. Purge Buffers (CHKP Function) (Part 1 of 2) Figure 2-15.10. Purge Buffers (CHKP Function) (Part 2 of 2) 
INPUT - gm PROCESS 2 OUTPUT INPUT PROCESS 
10. Post DMB ECB complete. 
Pcs 1. Get address of the JCB. 11. If HISAM data base, update to next 
| ACB extension. 
psec. es mate ee ACBXT + — — —) 12. Get the RPL address. 
s nction is not , go to Ste . 
ene 
PST- PDIR = . If fe ree were made on this RPL, 
- go to Step 17. 
lpstesa | [ POIRSILA 
[esrese . Get address of DDIR entry. 
PSIL 
. Go test if ACB busy. 
DOIR . Get address of DMB prefix. 
Test AGB Routing 
fomaona—] . ena base or: dress is not Sad etal 4 
[omMBORG _ | |, or index data base, go to Step 1/. 
. Issue VSAM ENDREG for this RPL. 
ACBXT 
. Get the RPL address. 
. Post DMB ECB complete. 
RPL . Ifno av made on this RPL, 
[RPLACB | to Step 11. 
(VSAM) ia PSIL —— . Update to next PSB intent list entry. 
. Go test if ACB busy. 
PSIL _— . If not end of PSB intent list, return 
to Step 3. 
paca . Go to normal purge. 
OMB 9. Issue VSAM ENDREG for this RPL. . 
cee 
DLZDBHOS — Buffer Handler CSECT . DLZDBHOO DLZDBHO3 — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


2. Field JCBPRESF in the JCB is checked 
for encoded checkpoint function 
(FUNCCHKP X‘85’). If function is not 
CHKP, go purge the DL/I buffers. 


11. If the entry is for HISAM, update to the 
next ACB extension. For HISAM, 
ENDREQs must be issued for both the 
KSDS and ESDS. 


. If data base organization is not SHISAM 
(field DMBORG; bitDMBSHIS X‘01’ not 
set on), or HISAM (bit DMBISAM1 
X‘02’ not set on), or an index data base 
(bit DMBNDEX X‘08’ not set on) go 
update to next PSIL entry. 


. Continue scan of the PSB intent list until 
all have been processed. When processing} 
is completed, go purge the DL/I buffers. 


. VSAM ENDREQs are issued for every 
SHISAM, HISAM, and index data base 


- «to ensure. that the VSAM buffers are 
written to the data base. 
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Figure 2-15.11. Purge Buffers (Part 1 of 2) Figure 2-15.11. Purge Buffers (Part 2 of 2) 
INPUT PROCESS OUTPUT {INPUT PROCESS ge OUTPUT 
BFFR PSB —_——-—— 8. If BEFFRUSID is now zero, or if 
eca there are no more potential 
pause: [sca | users for this buffer: 
pa = A. Mark the buffer empty. : 
1. Get the first of all buffer : k a i 
prefixes. : B. Issue RELPAG macro. ; E 
C. Put the buffer on the bottom Al gece re 
of the use chain. 
2. If the buffer was not altered (iC) [ee cnsin) 
by this specific user, go to F : 
Step 11. f 9. Go to Step 11. 
Butter roel. 10. Write buffer to Disk. 
Control” 11. If this is not the last buffer meer 
3. If the identifiers are not Interval (Cl) prefix, get the next one and 
equal, go to Step 11. return to Step 2. 
> 4, If the buffer is not 12. Exit. 
non-reusable, go to Step 6. To 
Figure 2-15 
> 5. Mark the buffer empty, issue Step 3 
RELPAG macro, and put the buffer 
pcanmaainns Co) 
6. If the buffer is not a ‘ 
permanent write error buffer, 
go to Step 10. 
P 7. Delete this user from the user 
mask field in the buffer prefix. 
DLZDBHO3 — Buffer Handler CSECT DLZDBHOO OLZDBHO03 ~ Buffer Handler CSECT DLZDBHOO 


Extended Descriptio Routine Label Extended Descriptio 





1. This routine scans all buffer prefixes. 7. Before the bit in BFFRUSID, which 8. A task is a potential user of a buffer 
corresponds to the user identifier (in if at least one of the DSGs in the 


3. The caller may select a certain data the PPST) of the current task, is turned PSB has the same DMB and ACB as 
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base, a certain data set, or certain 
buffers to be purged. The choice is 
indicated by putting the number of 
the desired item into PSTDMBNM, 
PSTACBNM, or PSTBLKNM., Zeroes 
in these fields indicate that purging of 
all components of the item on the next 
higher level is desired. This module 
checks the contents of the above 
mentioned PST fields against the con- 
tents of fields BFFRDMB, BFFRACB, 


and BFFRCIID in the buffer prefix. 


. Buffers that are non-reusable are freed 
during a purge call. 


. Permanent write error buffers are not 
freed until all tasks, which either 
altered the buffer, or might be 
interested in it because they use the 
data base, have terminated. 





off, a check is made whether any tasks in fields BFFRDMB and BFFRACB 
are active that would share the bit with of the buffer prefix. 

the current task. (Refer to the notes in 

the Figure for routine BFALT.) 
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Figure 2-15.12. Test ACB Routine 
INPUT From Figure f™ PROCESS 


2-15.10 
Step S or 14 





== 1. Save RPL address. 

— 2. Get PST address. 

ain 3. If DMB ECB not busy, go to Step 9. 
4. Indicate wait was necessary. 


Get PPST address. 


6. Indicate enqueued by buffer handler. 
—-—-$— 7.. Issue wait. 
8. Reset enqueued by buffer handler 
indicator. 
—= 9. Restore RPL address. 


-— 10. Indicate DMB ECB is busy. 


11. Return to caller. 


DLZDBHO3 — Buffer Handler CSECT 


Extended Description Routine Labet Extended Description 


. Byte 2 of DMB ECB set to X‘80’. 


. Bit PSTIWAIT in field PSTCLRWT in 
PST set on. 


. Bit PPSTBF in field PPSTIND in PPST 
set on. 


- DLZIWAIT macro issued. 


. Bit PPSTBF in field PPSTIND in PPST 
set off. 


. X‘80’ in byte 2 of DMBECB turned off. 


HOP 
iil 


OUTPUT 


PJ 
o 


I 


UU 


4 
3 


Pi 
a 


F 


Py) 
= 


> 
F)| 

o 

x 

4 


MBECB 


To Figure 
2-15.10 
Step 9 or 15 


DLZDBHOO 


Routine 








Label 
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Figure 2-16. DB Logger (Overview) 
INPUT 





DLZRDBLO — DB Logger CSECT 


From 





Note: The three different functions 
of the logger are associated with the 
three different entry points into it: 
@ DLZIDBLO (Seen 2) 

@ LOGWR (Step.4) 

@ WRIAHEAD (Step 5) 


1. Initialize logger. (See Figure 2-16. 1) 


2. Build a fog record and move it to 
the log 1/O area. (See Figure 2-16.2) 


3. Give control to asynchronous log 
subtask (online only). (See Figure 
2-16.3) 

4. Move a tog record (which has been 
built by another module) to the tog 
I/O area. (See Figure 2-16.4) 


5. Write log information physically to 
tape. (See Figure 2-16.5) 


6. Close the log file. (See Figure 2-16.6) 


7. Check for disk errors. (See Figure 
2-16.7) 





Extended Description 


OUTPUT 


DLZRDBLO 


Routine 


Label 
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Figure 2-16.1. Initialize Logger 
INPUT Figure 2-46 


DLZRDBLO — DB Logger CSECT 


Extended Description 


1. The entry point to the logger module 
initially points to the initialization 
routine. After initialization it con- 
tains the entry point of DLZIDBLO 
All of the entry points to the various 
logger routines are in the SCD after 
initialization. 


. If tape logging is specified, the DTF 
is opened. 


If disk logging is specified, the ACB 
is opened and tested if successful. 


- Message DLZ0201 is issucd if an 
open error occurred with disk 
logging. 

Message DLZ0771 is issued if the 
log was opened successfully with 
disk logging. 





PROCESS 


1. Initialize entry points in 
SCD. 


2. Open the log file and if 
successful turn open bit 
on in SCD. 


3. Issue error message if open 
failed and disk logging was 
specified. 

4. Restore registers. 


Routine Label Extended Description 


To 
Figure 2-16 


OUTPUT 


scD 


CI 


DLZRDBLO 


Routine 


Label 
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Figure 2-16,2. Build Log Record (Part 1 of 2) 
INPUT PROCESS 


From 
Figure 2-16, 
Step 2 


sei 1. Build the log record: 


—_ 

i 

p B. Move header information 
into work area. 


DSG 


| 
Fe C. Move data into workarea. 
i kat 
a 
| 
B 


DSGACBNO 


x D. If all data does not fit 
into log record, move as 
much data as possible. 


2. Move date and time into 
log record. 


= - 


DL/I or VSAM | pMBPRS2 


BUFFER 
scD 
ao 
| 


CL. ] 3. Move log record to 1/O area: 





LOG WORK 
AREA If log record does not 
fit into 1/0 area, do Step 
4. Otherwise, go to Step 5. 
DLZRDBLO — DB Logger CSECT 
Extended Description Routine Label Extended Description 





1. Depending on the kind of log record {DLZRDBLO|DLZIDBLO 
being processed, the logger will build 
one of the following type of log record: 


@ Physical insert record 

© Physical replace record 

@ Physical delete record 

@ Logical delete record 

®@ Pointer maintenance record. 


The maximum logical record size 

for a log record is 512 bytes. The 
blocks are undefined with a maximum 
of 1024 bytes. 


P A. Detect the kind of log call. 





Figure 2-16.2. Build Log Record (Part 2 of 2) 


INPUT PROCESS 
Cc] 4. Write the contents of the 
VO Area i/O area to tape or disk. 


A. _ If logging is being done in 
a batch environment, 
issue the PUT macro 
immediately. 


B. If logging is being done in 
an online environment, 
pass control to: 


== Asynchronous 
Log Subtask 


2-16.3 





5. Check for disk errors 
if disk logging. See 


Figure 2-16.7. 
scp 6. Heid tog pene is pei 
with a buffer, move the 
number of the last written 
log block from SCDLOCOU 


into the buffer prefix. 
7. If more data is to be logged, 


return to Step 1C. 
Otherwise; 


OLZRDBLO — DB Logger CSECT 


Extended Description 





In an online environment, the 
PUT macro is issued from the 
Asynchronous Log Subtask in 
order to avoid losing tasks when 
EOV is encountered on the log 


tape. 


6. The purpose for keeping the number 
of the last written log block in the 
SCD and in the BFFR is to enable 
DLZDBH00 to determine if a log 
record has to be written out before 
an update is applied to a data base. 


. There will be more data to be logged 
if all data did not fit into the log 
tecord. See Step 1D. 
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Figure 2-16.3. Asynchronous Log Subtask 
INPUT PROCESS 


From 
Figure 2-16.2,] 
Step 4 


PRIVECS 


SCDELECB 


3 fele Ee (al 
< bd < = 
> > 
i a 
m , m 
3 8 


Ir 
io 


PRIVECB 


1. Lock the SYSTEM ECB. 
2. Turn off posted PRIVATE ECB. 


3, Post the LOG 1/0 ECB. 


4. Issue WAIT on PRIVATE ECB. 


OUTPUT 


Hl 
iv] 


PRIVATE ECB 
PRIVECB 


O Tl 


5. Issue PUT. 
PRIVATE ECB TARE LOG 
6. Post the PRIVATE ECB. PRIVATE ECB 
7 
7. Turn off posted LOG 1/0 ECB. scp 
8. Go into wait again on 
LOG I/O ECB. 
scp 
9. Post the SYSTEM ECB. se 
[SCDESECB_| 
To 
Figure 2-16.2, 
Step 5 
DLZRDBLO — DB Logger CSECT DLZRDBLO 
Extended Description Routine Label Extended Description Routine Label 


Steps 1, 2, 3, 4, and 9 are performed IDLZRDBLO |ONLINT 
within CSECT DLZRDBLO. 
Steps 5, 6,7, and 8 are performed DLZRDBLO |ONLLOGWR 
within the Asynchronous Log Writer 

Subtask. 


. The SYSTEM ECB is used for commu- 
nication between DLZRDBLO and 
DLZODP. It is locked in order to 
prevent any other task from entering 
the logger while the I/O is going on. 


. The PRIVATE ECB is used for commu- 


nication about the completion of I/O 
between the Asynchronous Log Subtask 
and DLZRDBLO. 


. The LOG I/O ECB is used for commu- 
nication about the need to issue a 
PUT macro between DLZRDBLO and 
the Asynchronous Log Subtask. 





The Asynchronous Log Subtask is 
waiting on this ECB and when it gets 
posted, DOS/VS will mark this sub- 
task as dispatchable, 


. WAIT will have the effect that the 
DL/I ‘maintask’ will be put into wait. 
The Asynchronous Log Subtask can 
then be started by DOS/VS. 











Figure 2-16.4. Move Log Record 
INPUT PROCESS 
From 
Figure 2-16, 
Step 4 


{See Note) 






LOG 
RECORD 


DLENGTH 











1. If the fog record fits into 







the space currently 
LOG 1/0 available in the LOG 1/0 
AREA AREA, go to Step 4. 





LOG 1/0 
AREA 
2. Write the current contents 
of the LOG I/O AREA to the 
log tape or disk. 
3. Check for disk errors if 
disk logging. 
(See Figure 2-16.3.) 
one ais 4. Move the log record to 


the LOG I/O AREA. 


LOG RECORD 


DLZRDBLO — DB Logger CSECT 





Note: This function is used 


© Open log records (ID X‘2F’) 

®@ Scheduling records (ID X‘08’) 
® Termination records (ID X‘07’) 
@ Checkpoint records (ID X‘41’) 





To 
Figure 2-16 


OUTPUT 


LOG 1/0 AREA 


OLZRDBLO 


Routine 





Label 
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Figure 2-16.5. Write Log Information 


INPUT eam PROCESS OUTPUT 
Figure 2-16, 
Step 5 
Log 1/0 Area 
[SO «C1. Issue PUT macro to write current 
contents of the log I/O area to the 
log tape or disk. or 
2. Check for disk errors if disk logging. 
(See Figure 2-16.7) 
To 
Figure 2-16 
DLZRDBLO — DB Logger CSECT DLZRDBLO 
Extended Description Routine Lal Extended Description Routine Label 


bel 
1. This function is used by DLZRDBLO] WRIAHEAD 
DLZDBHO00, when log 
information associated 
with a data base update . 
; has not been written to 
tape at the time the data 
base update was being 
done. 


Figure 2-16.6. Close Log File 
INPUT 








From 
Figure 2-16 
Step 6 


DLZRDBLO — DB Logger CSECT 
Extended Description 


1. Either the tape or disk log file is 
closed in this subroutine. 


This subroutine is used by DLZODP, 
DLZRDBLO, DLZRRCO0, and 
DLZBNUCO. 


4. Message DLZ0211 is issued. 


DLZIDBLO | LOGCLOSE 


PROCESS 


1. Reset open bit in SCD. 


2. If tape logging, close tape 
DTF. 


3. If disk logging, close ACB 
and test for close errors. 


4. If close errors, issue 
error message. 


5. Restore registers. 


Routine Label Extended Description 





| Seer 
(LOGOUT) 


To 
Figure 2-16 





OUTPUT 


DOTFEMT 


ACB 


es) 


(LOGACB} 


DLZRDBLO 


Routine 


Label 
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Figure 2-16.7. Disk Errors 
INPUT 


From 
Figure 2-16 
Sup7 


DLZRDBLO — DB Logger CSECT 


Extended Description 


1. The log file is closed so that the 
operator could dump the file 
(optional) before continuing. 


. Checks to see if the user specified 
PAUSE on the DL/I control 
parameter. 


. Message DLZ0761 is issued. 


. Message DLZ0771 is issued. 


- Message DLZ0791 is issued. 


. If the reply is ‘GO’, a check is made 
to determine if 1 or 2 disk files are 
being used for logging. If there are 2 
files, the second file is opened and 
control is returned to the PUT routine. 


Message DLZ004I is issued. 





PROCESS OUTPUT 


1. Perform close log file routine. 


= 
: 2-166 


2. If full extent, check if 
PAUSE is indicated. 


3. Hf PAUSE is indicated, issue 
message and wait for reply. 


4. If reply is ‘cancel’ issue 
message. 


5. If reply is ‘go’, open next file, 
issue file used message, and 
continue. 
ACB 


6. If an 1/O error occurs, issue {LOGACB) 
message. 


To 
OLZBNUCO 
ABEND 


Routine 
(Figure 2-4.2) 


DLZRDBLO 


DLZRDBLO PUTERROR 


- Extended Routine 


Label 
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Figure 2-17. CICS Journal Logger (Overview) 


INPUT PROCESS 
From 


Calter 


Note: The four different functions 
of the logger are associated with 
four different entry points into it: 
© DLZIDBLO (Step 2) 

© OPLOG (Step 3) 

@ WRITEEXT (Step 4) 

@ WRIAHEAD (Step 5) 


1. Initialize the logger. 


2. Build a log record and move it 
to the CICS journaling buffer. 
(See Figure 2-17.1) 


3. Build open log record(s) and 
move to CICS journaling buffer. 
(See Figure 2-17.2) 

4. Move a log record which has been 
built by another module to the 
CICS jouraling buffer. 

(See Figure 2-17.3) 
5. Write journal information physically 


to tape. 
(See Figure 2-17.4) 


DLZROBL1 — DB Logger with CICS Journating CSECT. 


Extended Description 


1. Move all of the entry points 
to the logger into the SCD. 








OUTPUT 


DLZROBL1 


Routine 
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Figure 2-17.1. CICS Build Log Record (Part 1 of 2) 
INPUT PROCESS OUTPUT 
From 
Figure 2-17 
Step 2 


JCBPRESF 


———— 1. Build the log record. = won as 


DL/I OR VSAM; PME 
BUFFER 


fad 





AREA 2, Issue DFHJC TYPE=(WRITE,DL/I) 
So ges the [oa tecoed mores CICS JOURNAL 
to the CICS journal buffer. BUERER 
3. If physical 1/O is not necessary, 
go to Step 10. 
<= 4. Lock SYSTEM ECB. ScD 
[scossece ] Loa 
5. tssue DFHJC TYPE=WRITE 
again. 
6. If no 1/O error occurred, 
go to Step 8. 
7. Log 1/O error — system 
ABEND. 
aap ABEND Routine 
24.2 
OLZRDBLI — DB Logger with CICS Journaling CSECT DLZRDBLI 
Extended Description Routine Label Extended Description Routine Label 


1. IDLZRDBLI |DLZRDBLO 


4. The SYSTEM ECB is locked in order IONEC1 
to prevent any other task from entering 
the logger while the I/O is going on. 





Figure 2-17.1. CICS Build Log Record (Part 2 of 2) 


INPUT PROCESS 
JCT 8. Get the new number of the last 
JCTBLKNM]__==SSS™C~— written journal block from the 
JCT. 


9. Post the SYSTEM ECB. 


10. If the log request was not 
associated with a buffer, go 
to Step 12. 


ScD 11. Store the block number of 


[scoLocou}—___ > the last journal buffer written 
to tape into the buffer prefix. 


12. If the data to be logged did 


Not fit into one log record, 
return to Step 1. 


DLZRDBL1 — DB Logger with CICS Journaling CSECT 


Extended Description Routine 


Label 
8. The purpose for keeping the DLZRDBLI | GETECN 
CICS event controi number 
is to enable DLZRBHO0 to 
determine if a log buffer has 
to be written before an update 
is applied to a data base. 


Extended Description 


OUTPUT 


scD 


BFFR 


[BFFRLOCO] FRLOCO 


To 
Figure 2-17 


DLZRDBL1 


Routine 


Label 
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Extended Desecripti 


Figure 2-17.2. CICS Move Log Record 


INPUT PROCESS OUTPUT 


(See Note) 


- T+ 1. Locate the first DDIR entry. 


| 
bo > 2. If the data base was not 
opened, go to Step 5. 


--— 3. Build the open log record 


i 
for the data base referenced 
. LOG WORK AREA 
| 
L 


by this DDIR entry. 
4, Move open log record to 
CICS journaling buffer. 


— 5. If this is not the last 
DDIR entry, get the next 
DDIR entry and return to 
Step 2. 


To 
Figure 2-17 


DLZROBL1 — DB Logger with CICS Journaling CSECT DLZRDBLI 


Routine Label Extended Description 








Note: Since the CICS journal tape is not 
yet open at DL/I initialization, the open 
log record(s) are built and moved before 
the first scheduling call is logged. 


2. A data base might not have been 
opened because of the OPEN= 
DEFERRED option or because 
of an open error. 


4. See Figure 2-17.1, Steps 4.9. 





Figure 2-17.3. CICS Move Prebuilt Log Record 


INPUT rom PROCESS OUTPUT 
Figure 2-17. 
Step 4 
(See Note) 


LOG WORK AREA 1, Get the prebuilt log record 


eS and move it to the CICS cics 
journal buffer. JOURNAL BUFFER 
To 
Figure 2-17 
DLZROBL1 — DB Logger with CICS Journaling CSECT : OLZRDBLI 
Extended Description Routine Labe! Extended Description Routine 


Note: This function applies to 
scheduling and termination 
records built by the scheduling 
termination routine. 


1. See Figure 2-17.1, Steps 4-9. 


Label 
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Figure 2-17.4. CICS Log Writing 
INPUT PROCESS 


From 
Figure 2-17 
Step 5 


: (See Note) 


D 
1. Store the block number of 


the block that is going to be 
written in the JCA (Journal 
Control Block). 


ScD 


cIcsS 
JOURNAL BUFFER 


2. Lock the SYSTEM ECB. 


3. Issue DFHJC TYPE=(WAIT,DL/I) 
to get current contents of 
CICS journal buffer written 
to tape. 


4. Get the block number of the 
last written journal 
block from the JCT 
(Journal Control Table). 


JCT 
JCTBLKNM 
scD 


5. Post the SYSTEM ECB. 


DLZRDBL1 — DB Logger with CICS Journaling CSECT 


Extended Description Routine Label 


Note: This function is used by DLZDBHOO|DLZRDBL1 
when log information associated with a 

data base update was not written to tape 

when the data base update was being 

done. 


1. Refer to note for Step 8 of 
Figure 2-17.1. 


2. Refer to note for Step 4 of 
Figure 2-17.1. 


JCA 


sco 


LOG TAPE 


cD 


SCDLOCOU 


a= 
mic 
tos 


To 
Figure 2-17 


iI 
o 











Figure 2-18. Start Transaction 
INPUT 


From 
CICS/VS 
DFHPCP 


CSA 


DUIDLIAL _—_—— 
DLISTRM 


DLINUC 


DL/t Nucleus 


ScD 


SCDDBMPS scD 
Addi 


TCA —— 


TCAKCRC 


DLZMSTRO — MPS Start Transaction CSECT 
Extended Description 


. Module identifier (DLZMSTRO) is 
defined here. 


Write message DLZ0971 if nucleus not 
loaded or not active and go to Step 4. 


. Write message DLZ101] if flag 
SCDXECB indicates MPS XECBs 
already defined and go to Step 4. 


. Write message DLZ0831 if attach 
fails with a return code in TCAKCRC 
and go to Step 4. 


PROCESS 


1. Check if DL/! nucleus loaded. 


2. Check if MPS already active. 


3. Attach master partition 


controller. 
ea) DFHKC TYPE=ATTACH 
COND=YES 
TRANSID=SCDB 
4, Return. 


=, DFHPC TYPE=RETURN 


IDLZMSTRO /DLZMSTRO 





OUTPUT 


CICS/VS 
Dispatch Chain 


MPC 


OLZMPCOO 


To 
CICS/VS 
OFHPCP 


OLZMSTRO 


Routine 





Label 
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Figure 2-19. Master Partition Controller (Overview) 


INPUT PROCESS OUTPUT 





From 
cics/vs 
DFHPCP 


1. Initialize MPC task. 
(See Figure 2-19.1). 


2. Defined required XECBs for 
cross partition control. 
(See Figure 2-19.2) 


3. WAITM on Start Partition, Stop 
Partition, and Stop Transaction 
XECBs. 

(See Figure 2-19.3) 


4. If Start Partition XECB posted, 
attach BPC task. 
(See Figure 2-19.4) 


5. If Stop Partition XECB posted, 
process stop partition requests. 
(See Figure 2-19.5) 


6. If ABEND XECB posted, the BPC 
attach failed, process the ABEND 
condition. 

(See Figure 2-19.6) 


7. 1f Stop Transaction posted, 
terminate MPS. 
(See Figure 2-19.7) 


8. Terminate MPC task. 

(See Figure 2-19.8) 

From 
CIcs/vs 


To 
cics/vs 
9. MPC ABEND exit routine. DFHPCP 


(See Figure 2-19.9) 


cics/vs 
DFHPCP = "DLZMPCO0 


Extended Description i Extended Description Routine Labet 


2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
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Figure 2-19.1. MPC Task Initialization 
(NPUT 


From 
Figure 2-19 
Step 1 


CSA 
CSAOPFLA ff OL/t 
Interfece 





Transaction 
Work Area 


as) 


IDLZXCBn3 | 
|DLZxcBO1 | 
[MPCNPTE _| 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


1. Module identifier (DLZMPC00 vinp) is {DLZMPCOO | DLZMPCOO 
. MPCSTART 


defined here 


MPC is attached by the MPS start 
transaction (DLZMSTRO) via CICS/VS. 
Ignore request if DL/I is not defined 
eC cics/s or the nucleus is not - 

loa 


. The transaction work area is a logical 
extension of the TCA. 


. This controls the number of aie ge 
table entties that will be initialized 
later. This is an equated value in the 
partition table DSECT (DLZMPCPT). 





PROCESS 


b 1. Establish SCD addressability. 


2. Set addresses of MPS cleanup exit 
routines in POCA. 


3. es address of the MPC Partition 


| ee p= 
Work Area 
a 4. Get address of CICS/VS WAITM 


ECB list. 


5. Get address of ABEND XECB 
parameter list. 


6. Get address of stop partition XECB. 


7. Get maximum number of concurrent 
batch or psuedo partitions. 


Routine Label Extended Description 


OUTPUT 


SCDADOR 





8 
o 


To 
Figure 2-19 
Step 2 
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Figure 2-19.2. MPC Define XECBs (Part 1 of 2) 
INPUT PROCESS 


Ra MPCPT 


From 
Figure 2-19 
Step 2 







[7 [mecerun 


RS DLZXCBn3 1. Initialize Partition Table entries and 
a —— assign first one for first batch 


Ae Partition to be started. 


(—__] PIDLIST 


> Le ROBRE — —} 2. Define stop transaction XECB. 


as) XECBTAB TYPE=DEFINE 
XECB=DLZXCBOO 
ACCESS=XPOST 


3. if error return on DEFINE: 
A. Issue message DLZ0821. 
B. Delete any XECBs defined. 


C. Go to Figure 2-19, Step 8, 
to terminate MCP, 


DLZxcB01 ss a 
4. Define Stop Partition XECB. 


(aad XECBTAB TYPE=DEFINE 
XECB=DLZXCBOt 
ACCESS=XPOST 


5. lf error return on DEFINE, 
go to step 3. : 


DLZMPCOO — Master Partition Controller CSECT 


. Extended Description Routine Label 


1, The XECB identifier is an alphabetic 
character assigned by this routine. 
There is no relation between this 
identifier and any particular batch 
partition. The addresses of an 
ABEND XECB and the stop partition 
XECB are placed in each partition 
table entry even though no XECBs 
have been defined at this point. 


DLZMACO00 | MPCDEFIN 
e@ Ri is set 


module, 
message. 


4. DLZXCBO} is the XECB name to stop 


The currently defined values of ‘n’ 
are the alphabetic characters L-A. 


. DLZXCBO0 is the XECB name to stop 
. the MPS transaction. 


a partition. 


OUTPUT 


DLZXC802 MPCPT 


MPCPT MPCAXECB 
Enry | [ecsxece 
MPCSXECB 





XECBTAB Transaction 


Work Area 


Entry 
es (= 


Transaction 


XECBTAB Work Area 


Entry 


L.._] MPCECBLT 
| 





DLZMPCOO 


Extended Description 


3. In all steps where a message is issued: - 


up with the applicable 
ter list. 


message parame 
e Control is passed to the MPC 


writer at MPCMSGRT. 


message 
e@ BALR to the DL/I online 


DLZERMSG, to write the 


Routine Label 





Figure 2-19.2. MPC Define XECBs (Part 2 of 2) 
INPUT PROCESS 


Step 3. 
8, Indicate MPS active. 


TCA SYS TCA 


TCASYAA ITCADCAA 


status for MPC. 


SYSCOM 


ma, during system generation (SYSGEN) 
and adjust the partition 
identification table. 


DLZMPCOO — Master Partition Controller CSECT 
Extended Description Routine Label 


. DLZXCBO2 is the XECB name to start 
a batch partition. 


XECBDFN2 


. Tum on SCDXECB at SCDDBMPS 
and issue message DLZ0931 to indi- 
cate MPS started. 


. MPCABEXT routine is within this 
module (see Figure 2-19.9). 


. Turn on the DCAAPURG flag in the 
DCAFLG!1 byte of the DCA for this 
task. When a CICS/VS task control 
will not count this task as part of 
AMXT nor will it take the short wait 


interval if this is the only waiting task 
in the CICS/VS system. 


6. Define start partition XECB. 


eb XECBTAB TYPE=DEFINE 
XECB=DLZXCB02 
ACCESS=XPOST 


7. Uf error return on DEFINE, go to 


9. Set ABEND exit routine for 
Master Partition Controller. 


DFHPC TYPE=SETXIT 
ROUTINE=MPCABEXT 


10. Establish special task dispatch 


11, Get number of partitions defined 


E Jed Descripti 


OUTPUT 





XECBTAB Transaction 


Work Area 
MPCECBL’ 






7 


SCDDBMPS 


TCA 
CAPCERA 


DCA 


IDCAFLG1 


an 
9 
i 


r 


PARTIDTB 


To 
Figure 2-19 - 
Step 3 


OLZMPCOO 


Routine Label 


11. Adjusts the partition identifier 


table to the form BG, Fn-1, ‘“F 
where n is the number of DOS/VSE 
partitions defined during SYSGEN. 
This is done so that a printable 
partition identifier may later be 
computed from the PIK, which is 
passed from the batch partition on 
a start partition request. 
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Figure 2-19.3. MPC. Wait 


INPUT PROCESS OUTPUT 

From 

Figure 2-19 
Step 3 

TCA /-MPCECBLT 
"4, Issue a wait on ECB list. CICaS 
ECB LIST’ 
= DFHKC TYPE-WAIT 
om OCI=LIST 


——_ — > 2. When control returns, scan the 
XECBs for one that is posted. 


3. Return to step 1 if no XECBs 
are posted. 
— — % 4. Determine what action is to be 
taken for the first XECB found 
posted. . 





6,0r7 


DLZMPCOO — Master Partition Controiter CSECT DLzMPcoo 
Extended Description Routine Label! 


1. Note that the ABEND XECB_. 
(DLZXCBn3) pointer is placed in the 
ECB list only when the BPC attach 
is unsuccessful. 


. The XECBs are posted on the following} 
conditions: 
DLZXCBO2 
e DLZMPI00 — activate BPC for 
a specific partition. 
DLZXCBOO 
@ DLZMSTPO — terminate MPS. 


DLZXCBO1 
e@ DLZBPCOO — normal batch EOS; 
error conditions in BPC or batch 


partitions. 
e. DLZODPO1 — ABEND. 


DLZXCBn3 
e@ DLZMPIOO — BPC attach failure. 


. Before going to the appropriate 
routine, the post bit in the XECB 
is tumed off. 
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Figure 2-19.4 MPC Start Processing (Part 1 of 3) 
INPUT 


R7 From 


ae DLZXCB02 





Rt 


Figure 2-19 
Step 4 


A(MPCPT Entry) 


MPCPT Entry 


MPCPT 
Entry 


= 
\ 


PARTIDTB 


foe 


DLZMPCOO — Master Partition Controller CSECT 


XCBIFPIK 





mpPcPT 
Entry 


MPCAXECB 


Extended Description 


1, 


PROCESS OUTPUT 
MPCPT Entry DLZXCBn3 
1. Initialize for Start Partition processing. 
2. Reset start partition XECB. 
= XECBTAB TYPE=RESET 
XECB=DLZXCBO2 
R14 
A (XECBTAB) 
3. Locate MPS Batch XECB. 
R1 
XECBTAB TYPE=CHECK 
aa) vc078 rye one [Atouzxcann) J 
> 4. If error return on CHECK: 
A. Issue message DLZ082i. 
B. Go to step 16. 
MPCPT Entry 
5. Map the PIK into a printable partition [mecripHx | 
identifier of the form BG, F1, etc. t 
XECBTAB 
Entry 
6. Define ABEND XECB. [ 
== XECBTAB TYPE=DEFINE 
XECB=DLZXCBn3 
ACCESS=XWAIT 
DLZMPCOO 
Routine Label Extended Description Routine Label 


This routirie is entered from the MPC | DLZMPCOO 


Wait Routine when a Start Partition 
XECB (DLZXCBO2) is posted 
ST) by DL/I MPS Batch Module 
LZMPIO0). 


Register 7 contains the address of 
the XECB posted. 


The XECBTAB/CHECK macro is 
issued to obtain the address (in 
register 14) of Batch Initialization’s 
XECBTAB entry for the specific 


partition. 
The PIK is in printable form. 


DLZXCBn3 is the XECB name for 
handling an ABEND situation for a 
specific partition. 








Figure 2-19.4. MPC Start Processing (Part 2 of 3} 


INPUT PROCESS 


R15 


Ct -- #2. 






8. 
Transaction 
Work Area 
a 
z ti 
es 10. 
Ew 1 
TCA 12. 
R14 oe 13. 
Ri 
DLZMPCOO — Master Partition Controfler CSECT 
Extended Description Routine 


If there are no inactive entries set 
DLZXCBSP to zero. 


A ‘X31’ in TCAKCRC indicates 
an ATTACH failure. 


The BPC ATTACH failed flag. 
MPCERR, is turned on. 





OUTPUT 
If error retum on DEFINE: 
A, Issue message DLZ0821. 
B. Notify MPS batch (DLZMPI00) of 
DEFINE failure. 
C. If XPOST, successful, go to Step 16. 
D. {ssue message DLZ084I. 
E. Go to Step 16. 
Set Partition Table entry active. MPCET Entry 
: 
Scan the Partition Table entries for 
an inactive entry and make it available 
as the entry for the next batch partition 
to start. DLZXCBO2 
i 
Set MPCPT entry for BPC TCA 
i 


Attach Batch Partition Controller 
(DLZBPCOO). 
aap DFHKC TYPE=ATTACH 
TRANSID=CSDC 
COND=YES 
If BPC attach is successful, to to Step 16. 


DLZXCBnt 


Notify MPS Batch (DLZMP 100) of 
BPC ATTACH failure. 


MPCPT 
jammy XPOST XECB=DLZXCBn1 Entry 
MPCFLAG 
DLZMPCOO 


Labet Extended Description Routine 
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Figure 2-19.4, MPC Start Processing (Part 3 of 3) 
INPUT PROCESS 


OUTPUT 


[__]4+——-> 14. tnoerror on XPOST: MPCECBLT 


A. 


MPCPT 
Entry MPCECBLT 








C. 


eax) XECBTAB TYPE=DELETE Entry 
XECB=DLZXCBn3 


—+ 
B. 
A118 
Cc] > 15. If error returnon XPOST: 
A. Issue message DLZ0841. 
Cieceio J (J 5 


Move ABEND XECB address to ——— 
the end of the CICS/VS WAITM 
ECB list. 


Go to Step 16. 


Delete ABEND XECB. 
ra 


(worvas_] 


Set partition table entry inactive 
and clear error indicator. 


If there is no partition table 


entry available for the next batch 
partition, make this one available. 


16. Return to MPC Wait routine. 


DLZMPCOO - Master Partition Controller CSECT 
Extended Description Routine 


14.A The CICS/VS WAITM ECB list is 
updated to include a pointer to the 
ABEND XECB pointer to provide 
recover. 


15.B If error return on DELETE, issue 
message DLZ0821. 


C. The flags MPCPACT and. 
. MPCERR are turned off. 


D. If DLZXCBSP is zero, there is no 
inactive entry other than the 


one just made inactive. 





To 
Figure 
2-19 
Step 3 
DLZMPCOO 
Label Extended Description Routine Label 
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Figure 2-19.5. MPC Stop Partition Processing (Part 1 of 2) 


INPUT PROCESS 
From 
Figure 2-19 
Step 5 
MPCPT 
Ent 
MPCELAG |— — — —%& 1. Scan MPCPT for an entry with stop 
partition request. At end of MPCPT, 
go to Step 7. 
MPCPT 
Entry 
[mpcrLac }-§——— 6 2. if “wait for ABEND” switch is.on, 
[ureruac_J- put ABEND XECB on CICS WAITM 


ECB list. Go to Step 1. 


3. Set partition inactive and clear stop 
partition request. 


MPCPT 


mr OLZXCBn3 





rll 4, Delete ABEND XECB. 





oxy XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 


MPCPT 
Entry 

oy meena, 5. If stop transaction (MPS) requested 

also, continue; otherwise, return to 


Step 1 to check next MPCPT entry. 


_ DLZMPCOO — Master Partition Controller CSECT 


Extended Description Routine Label 


1. This routine is entered from the 
MPC wait routine when a stop parti- 
tion XECB (DLZXCBO1) is posted 
by DL/I MPS Batch Partition Con- 
troller (DLZBPCO00) or Task 
Termination (DLZODP01). 


A scan is done on every entry in the 
partition table to avoid losing a stop 
partition request on a double post. 


. Flag MPCABWT in MPCFLAG 
indicates that the ABEND XECB 


(DLZXCBn3) should be waited on. 


. If error return. on DELETE, issue 
message DLZ0821. 


Extended Description 


ouTPUT 


TCA 


Routine 


DLZMPCOC 








Figure 2-19.5. MPC Stop Partition Processing (Part 2 of 2) 





INPUT PROCESS 
loLzxcesp_ [{———————"}>_ 6. If there is no partition table entry 
available for the next starting batch 
partition, make this entry available 
and return to Step 1 to check the 
next MPCPT entry. 
; MPcPT 
ntry . 
b, 7. If stop transaction (MPS) has not 
been requested, go to Step 10. 
b 8. If all of the partitions are inactive, 
go to Figure 2-19, Step 8 to terminate 
MPC. 
MPCPT 
Entry 


weceid 9. If an active partition is found: 


A. Check if XECB for batch 
partition is still defined. 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 


Cy B. If batch partition is still active, 
go to Step 10. 


C. Set cancel BPC indicator in 


MPCPT. 
R6 
SS D. Turn on BPC ABEND XECB 
Ld POST bit. 


10. Return to MPC Wait routine. 


~ DLZMPCOO — Master Partition Controller DSECT 


Extended Description Routine Labet Extended Description 


8. Flag MPCPACT in MPCFLAG indi- 
cates whether the partition is active 
or inactive. 


9. A partition is active if MPCPACT is 
on. 


A. The XECBTAB/CHECK macro 
is issued to determine if the batch 
partition is still defined. 


. Bit MPCCNBPC in field 
MPCFLAGI in the MPCPT is 
set on. 


. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBn3). 
The XPOST macro is not needed 
to tum on the POST bit because 
aad XECB is defined by 


OUTPUT 


lovzxcesp | 


Ri4 


[A(XECBTAB) | 


Ri 


A(DLZXCBn1)} 


MPCFLAG1 


[wecensec _| BPC 


Figure 2-19 
Step 3 


OLZMPCOO 


Routine Label 
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.Figure 2-19.6. MPC ABEND Processing 





(INPUT From PROCESS OUTPUT 
Figure 2-19 
Step 6 
MPCPT 
Envy 
MPCAXECB — —h 1. Locate MPC Partition Table entry to 
which this ABEND XECB belongs. 
MPCECBLT___R? 
_— 4. 2. Remove ABEND XECE pointer from eee 
CICS/VS WAITM ECB list. G2-4) 
MPCPT 
Entry 7 = ” . z 
MPcrLAG | —__ — 4 3. If “Wait for ABEND” flag is on in the 
Partition table entry, then: 


A. Set “Wait for ABEND” flag off. 


B. Post the stop partition XECB 
(DLZXCB01). 


C. Go to Step 7. 


_—_———"> 4. Delete ABEND XECB. 


XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 





MPCPT 
Entry 


5. Set partition inactive and clear error 
paar Eo 
| DLzxcasr [y————> 6. If there is no partition table entry 


available for the next batch partition 
to use, make this partition table entry 
available. 


7. Retum to MPC Wait routine. 


To 
Figure 2-19 
Step 3 
DLZMPCO0 — Master Partition Controller CSECT DLZMPCOO 
Extended Description Routine Label Extended Description Routine Labei 


. This routine is entered from the MPC 
Wait routine when an ABEND XECB 
(@LZXCBn3) is posted (XPOST) by 
DL/I MPS Batch Initialization Module 
Lee) on a BPC ATTACH 


Register 7 contains the address of the 
XECB posted. 


. Flag MPCABWT is the “wait for 
ABEND” flag. 


. If error return on DELETE, issue 
message DLZ0821. 


. Flags MPCPACT and MPCERR are 
tumed off. 
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Figure 2-19.7. MPS Termination (Part 1 of 2) 


INPUT 


From 
Figure 2-19 
Step 7 


OLZXCBO2 


PROCESS OUTPUT 


4, 1. Detete Start Partition XECB. 


DLZXCBOO 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


1. This routine is entered from the MPC 
Wait routine when the Stop Transaction 
) XECB (DLZXCBO0) is posted 
by DL/I Stop Transaction Task 
(OLZMSTPO). 


If error retum on DELETE, issue 
message DLZ082I. 


. If error retum on DELETE, issue 
message DLZ082I. 


3. Flag MPCTSTP is tured on. 





ce XECBTAB TYPE=DELETE 
XECB=DLZXCBO02 


2. Delete stop transaction (MPS) XECB. 


XECBTAB TYPE=DELETE 
d XECB=DLZXCBOO 


3. Set stop transaction (MPS) request MPCPT 
in MPCPT entries. Entry 
IMPCFLAG } 
DLZMPCOO 
Routine Label Extended Description Routine 


Figure 2-19.7. MPS Termination (Part 2 of 2) 


INPUT PROCESS 
MPCPT Entry _ _— 4. Scan wort entries for an active 
MPCFLAG partition. 10 to Step 6 if no 
pecriat Jp he active partition is found. 


5. If an active partition is found: 


MPCPT Entry A. 





DLZMPCOO — Master Partition Controller CSECT 


Label Extended Description Routine 


4. A partition is active if MPCPACT is on. 


5. A. The XECBTAB/CHECK macro is 
is issued to determine if the batch 
partition is still defined. 


. Bit MPCCNBPC in field MPCFLAG1 
in the MPCPT is set on. 


. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBn3). The 
XPOST macro is not needed to turn 


on the POST bit because the 
ABEND XECB is defined by MPC. 





Check if XECB for batch partition 
still defined. 


ama} XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 

If batch partition still active, 

go to Step 9F. 


. Set cancel BPC indicator in MPCPT. 


Turn on BPC ABEND XECB 
POST bit. 


Go to Step 9G. 


Issue message DLZ0861. 


Return to MPC Wait routine 


6. Go to MPC Termination. 


Extended Description 


OUTPUT 


R1i4 
|A(XECBTAB) | 


Rl 


A(DLZXCBn1) 





MPCFLAG1 
MPCCNBPC 


DLZXCBn3 


To 
Figure 2-19 
Step 3 


To 
Figure 2-19 
Steps - 


DLZMPCOO 


Routine Label 
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Figure 2-19.8. MPC Stop Transaction Processing 


INPUT PROCESS OUTPUT 


From 
Calter 


OLZXCBO1 


2. Indicate MPS inactive. 


—— — } 1. Delete Stop Partition XECB. 


amb XECBTAB TYPE=DELETE 
X€CB=DLZXCBO1 


scD 
3. Issue message DLZ094I. 
4. Return to CICS/VS. 
(DFHPC TYPE=RETURN) 
To 
CICS/VS 
DFHPCP 
DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 
, Extended Description Routine Labei Extended Description Routine Label 


1. This routine is entered when MPS is 
to be terminated normally or 
abnormally. 


If error return on DELETE, issue © 
message DLZ0821. 


. Flag SCDXECB at SCDDBMPS is 
turned off and message DLZ094I 
is issued to indicate MPS stopped. 











CICSRTN 
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Figure 2-19.9 MPC ABEND Exit Routine (Part 1 of 2) 


INPUT PROCESS OUTPUT 
From 
cics/vs 
1. Indicate MPS inactive. 
scD 


OLZXxCB02 


BLZxCB00_ _OL2xcB01_ LR ——_——_r§ 





Rt 


_—— bs B. 
DLZXCBn2 


2. Delete Start Partition XECB. 


Gam) XECBTAB TYPE-DELETE 
XECB=DLZXCBO2 


3. Delete Stop Transaction (MPS) and 
Stop Partition XECBSs. 


=> XECBTAB TYPE"DELETE 
XECB=DLZXCBOO 


== XECBTAB TYPE=DELETE 
XECB=DLZXCB01 


4. For each MPCPT entry: 
A. 


Locate this partition’s BPC XECB 


dazed XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 


Ri 


If DLZXCBn2 exists, then turn DLZXCBn2 


on the BPC XECB post bit. [xecs_} 
Delete ABEND XECB. 


ab XECBTAB TYPE*DELETE 
XECB*DLZXCBn3 


5. Return to Step 4 to get next MPCPT 


entry. At end of entries, continue to 
step. 
DLZMPCOO — Master Partition Controller CSECT DLZMPGOO 
Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from CICS/VS 
if an ABEND occurs in MPC. Li 
was established through DFHPC 
TYPE=SETXIT in Figure 2-19.2. 


Flag SCDXECB at SCDDBMPS is 
tumed off to show MIPS as inactive. 


. Note that the XPOST macro is not 
needed to tum on the POST bit 
because BPC XECB (DLZXCBn2) is 
defined in the same partition as this 
module. DLZXCBn2 is defined by 


DLZBPCOO. 








Figure 2-19.9. MPC ABEND Exit Routine (Part 2 of 2) 


(NPUT PROCESS OUTPUT 
TCA 6. Set information for message 
paso es DLZ104l and issue it. 
TCAPCAC 
TCAPCPSW 
7. Return to CICS/VS. 
( DFHPC TYPE=ABEND ) 
ABCODE=DMPC 
To 
cics/vs 
DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 
Extended Description Routine Label Extended Description Routine 


6. 


7. DMPC ABEND code defines MPC 
failure for CICS/VS dump ID. 


Label 
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Figure 2-19.10. BPC Normal Termination Cleanup Routine Figure 2-19.11. BPC Abnormal! Termination Cleanup Routine 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Catier 
Caller 
R13 1. Save caller's registers and establish 
oe addressability. 
ml] ee eee 
fwamece PS 2. Get address of partition table entry i seta aaa 0 


R13 . 
oe ra 
for this BPC. eae addressability. 
MPCPT i 
3. Set stop partition flag in partition TWA 2. Get address of partition table entry 


for this BPC. 
NY: ae DLZXCBO1 
3. Set stop partition flag in partition MPCPT 


4. Post stop partition XECB. table entry. 


Go 
hy 
x 
(2) 
o 
° 


i 


4. If batch XECB does not exist, 


TWA 
5. If DLZMPIO0 is not waiting for go to Step 7. 
TWAMPS eS 
termination to complete, go to 
ise: . TYPE=CHEC R14 
Step 6, Otherwise: = ECR ECB-DLEXCENT | 
ms A. Post DLZXCBn1 XECB 
JTWAXCBNY fp ————— : : 5. Set “wait for ABEND” and error MPCPT 
flags in partition table entry. 
=x) XPOST XECB=(1), ‘ . batch processor. 
_ POINTR6=(14) 6. Post r 
B. If error on XPOST, issue jm xPOS nena) 
message DLZO84i. 
7. 1 BPC XECB does not exist, go to 
Step 9. 
ux XECBTAB TYPE=CHECK 
XECB=DLZXCBN2 
R13 
6. Restore caller's registers. 
| lCUd Ee 8. Delete BPC XECB. 
7. Return to caller. 
(amp XECBTAB TYPE=DELETE 
XECB=DLZXCBN2 
Caller 9. Restore callers registers. 
DLZMOCOO — Master Partition Controller CSECT DLZMPCOO 10. Retum to Caller. 
Caller 
Extended Description Routine Label Extended Description Routine Label DLZMPCO0 — Master Partition Controiier CSECT DLZMPCOO 
I. This routine is entered from DLZODP Extended Description Routine —Label Extended Description Routine 


when BPC normal termination occurs. 


3. Flag MPCPSTP indicates stop 
partition. 


1> This routine is entered from DLZODP 
~ when BPC abnormal termination 
occurs. 


5. Flag TWAEOJSW indicates that 
: DLEMPIOO is waiting for termination 
processing to complete. 


3. Flag MPCPSTP indicates stop 
partition. 


5. MPCABWT indicates wait on 
ND XECB and flag MPCERR 
is the error flag. 
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Figure 2-19.12. MPS Abnormal System Termination Cleanup Routine 
INPUT PROCESS OUTPUT 


1. Save caller's registers and establish 
addressability. 


2. Delete the start partition XECB. 


== XECBTAB TYPE=DELETE 
XECB=DLZX€802 
3. Delete the stop partition XECB. 
=) XECBTAB TYPE=DELETE 
XECB=DLZXCBO1 
4. Delete the stop transaction XECB. 
= XECBTAB TYPE=DELETE 
: XECB=DLZXCBOO 
5. For each partition table entry: 


A. Delete BPC XECB 
= XECBTAB TYPE=DELETE 
XECB=DLZXCBN2 
B. Delete ABEND XECB 
j= XECBTAB TYPE=DELETE 
XECB=DLZXCBN3 


C. If batch XECB does not exist, 
go to Step 6. Ria 


XECBTAB TYPE=CHECK : : 
== XECB-DLZXCBN1 aes 
D. Post batch processor. 
a) XPOST XECB=(1) 
POINTRE*(14) 
6. Restore caller's registers. 
7, Retum to caller. 


DLZMPCO0 -— Master Partition Controller DLZMPCOO 
Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from DLZODP 
when the system abnormally 
terminates. 
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Figure 2-20. Batch Partition Controller (Overview) 
INPUT 


From PROCESS 


CICS/VS 
DFHPCP 


1. Initialize BPC task. 
(See Figure 2-20.1) 


2. Issue online DL/! scheduling call 
on behalf of the batch partition. 
(See Figure 2-20.2) 


3. Wait on BPC and ABEND XECBs. 
(See Figure 2-20.3) 


4. If BPC XECB posted, process 
batch request. 
(See Figure 2-20.4) 


5. oe XECB posted, terminate 
(See Figure 2-20.5) -_ 


From 
CICS/VS 


6. BPC abend exit routine. 
(See Figure 2-20.6) 


Extended Description Extended Description 





OUTPUT 


DLZBPCOO 


Routine 


Label 
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Figure 2-20.1. BPC Task initialization (Part 1 of 2) 
INPUT PROCESS OUTPUT 
From 
Figure 2-20 
DL/I Step 1 


interface 
List 


DLZNUCxx 
CSAOPFL Address 


SCADLI .. 
: DLA 


/ ————¢" 1. Set MPCPT address and the specific MPCPT 
entry the BPC was attached for in the 
transaction work area. Save SCD address. 


ScD 
SCDMPCPT 


TWA 
MPCPT 
Entry“ $ 2. Save the XECB ID. 
fl 
MPCPT TWA 
Eni 3. Save the partition ID. 
es ee 
awk 4. Locate the MPS batch XECB. 


TWABPCID 
qm XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 


———-p5. If error return on CHECK: 


A. Issue message DLZ0821. 


ra 
Ri R13 —J B. Set abnormal termination condition. 
Twaspesy 
C. Go to Figure 2-20.5, Step 3, to 
terminate BPC. 
DLZBPCO0 - Batch Partition Controlier CSECT DLZBPCOO 
Extended Description Routine Label Extended Description Routine 


1. Module identifier (DLZBPCOO vmp) 
is defined here. 


The Batch Partition Controller 
(BPC) is attached by DLZMPCO0 
when a start request has been made 
by a partition. 


On entry, R12 contains address of 
er and R13 contains address of 
SA. 


DLZXCBn] = XECB name for MPS 
batch partition, where n is the 


partition ID, which is assumed by 
DLZMPCOO. 


DLZXCBn2 = XECB name for a 
BPC for a specific partition: 


DLZXCBn3 = XECB name for 
handling an abend condition for a 


specific partition. 
. XECBTAB TYPE=CHECK macro is 


used to obtain the address of MPS 
batch XECB. 








Label 


Figure 2-20.1. BPC Tank Initialization (Part 2 of 2) 
INPUT PROCESS 


6. Save DLZXCBn1 XECB name and 
XECBTAB entry pointer. 


7. Set-BPCs-CICS/VS WAITM ECB list 
with BPCs (DLZXCBn2) XECB address 
and the delimiter. 

TWA 


TWABPC TWAWLIST 


TWABPCID TWAXCBN2 ¢ 


8. Define BPC XECB. 


XECBTAB TYPE=DEFINE 
XECB=DLZXCBn2 


ACCESS=XWAIT 






9. If error return on DEFINE: 
A. Issue message DLZ0821. 
B. Set error indicator. 


C. Notify batch partition of the error 
condition. 


== XPOST XECB=DLZXCBn1 


D. Wait on ABEND XECB. 


zsh DFHKC TYPE=WAIT 


E. When control returns, clear ABEND 
XECB. 


F. Set abnormal termination condition. 
G. Go to Figure 2-20.5, Step 3 to 
terminate BPC. 


peboil 10, Set BPCs CICS/VS WAITM ECB list 
with ABEND XECB address. 


MPCAXECB 






MPCPT Entry 


[MPCAXECB | 


OLZXCBn3 


pa) 


11. Set abend exit routine for Batch 
Partition Controller. 


DFHPC TYPEsSETXIT 
ROUTINE=BPCABND 


12. Continue processing. 


DLZBPCOO — Batch Partition Contro!ler CSECT 


Extended Description Routine Label Extended Description 


8. BPC XECB (DLZXCBn2) is defined 
for cross partition communication 
with MPS Batch Initialization 
(DLZMINIT), MPS Batch Program 
Request Handler (DLZMPRH), and 
(DLZMTERM). 


. Flag MPCERR indicates an 
error condition, 


The POST bit X‘80’ in the 
XECB is turned off. 


11. The BPCABND routine (see 
Figure 2-20.6) is within this 
module. 





OUTPUT 
TWA 
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MPCPT Entry 


DLZXCBn1 


DLZXCBn3 


TWA 
TWAWLIST 


| TWAXCBDL | DL 





To 
Figure 2-20 
Step 2 


OLZBPCOO 


Routine Label 
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Figure 2-20.2. Issue Online DL/I Scheduling Call (Part 1 of 2) 
INPUT PROCESS 
From 
Figure 2-20 
Step 2 


SCHDPRMC XCBt 


1. Get parameter count, function call, 
[xcovree_] and PSB name for DL/I call parameter 





list. 
—_—__}} 2. Issue DL/I scheduling call. 
ux) 
BALR Language 
Interface 
ITWAPSBN 
MPCPT 
Entry . 
—— 5 3. If ABEND XECB is posted: 
pLzxce A. Set abnormal termination 


xecs condition. 
B. Clear the POST flag of ABEND 
XECB. 


C. Go to Figure 2-20, Step 5, 
to terminate BPC. 


TCA 
TCAFCTR ———-— 4. If error return on scheduling 
TCADLTR call, set error indicators and 
error codes. 
DLZBPCOO0 — Batch Partition Controller CSECT 
Extended Description Routine Label Extended Description 





1. Macro DLZXCB1 defines a DSECT 
that represents the format of the 
fields after the MPS Batch XECB 
(DLZXCBn1) used here as a 
parameter list by BPC. 


Addressability to DLZXCBn1 was 
obtained by the XECBTAB 
TYPE=CHECK macro in Figure 
2-20.1, Step 5. 


. Flag MPCERR at MPCFLAG is turned PCSCHCK 
on. 








OUTPUT 














MPCFLAG 
MPCRC1 
MPCRC2 


DLZBPCOO 


Routine 





Label 


Figure 2-20.2. Issue Online DL/1 Scheduling Call (Part 2 of 2) 





INPUT PROCESS OUTPUT 
—_ 5. Save the TCA address for MPS 
Batch (DLZMPI00). MPCPT 
Entry 
MPCTCA 
ul als —— - 6. Notify Batch Partition that 
TTWAXCBNi | TWAN1PTR DL/I scheduling call has been 
completed. DLZXCBn1 


> 7. If error return on XPOST: 
A. Issue message DLZ0841. 


L-- | 


B. Go to Figure 2-20, Step 5, 


R1 R13 to terminate BPC. 


t TWAMSG t TWABPCSV 


8. Continue processing. 


To 
Figure 2-20 
Step 3 


DLZBPCOO — Batch Partition Controiler CSECT DLZBPCOO 


Extended Description Routine Lal Extended Description Routine 


bel 


eae XPOST XECB=DLZXCBn1 





“Label 
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Figure 2-20.3. Wait on BPC and ABEND XECBs 
INPUT PROCESS OUTPUT 





From 
Figure 2-20 
Step 3 
TWA 

TWAWLIST 


———-— > 1. issue WAITM on BPC and ABEND 


XECB. 
= DFHKC TYPE=WAIT 
TWAWLIST 


pone 
ScD 
SCODBMPS ———- > 2. When control returns, check if 


A MPS still active. If not active, 
exit to Figure 2-20.6, Step 3. 





_ —— Ay 3. If BPC XECB posted, exit to 
Figure 2-20, Step 4. 


L, 4. If ABEND XECB posted: 


A. Set abnormai termination 
condition. 


B. Clear post bit in XECB. DLZXCBn3 


C. Go to Figure 2-20, Step 5 to 
terminate BPC. 


5. Return to Step 1. 


DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 


Extended Description Routine Label 


1. The XECBs are posted for the 

following conditions: 

DLZXCBn2 

®@ Process call on behalf of batch 
partition. 

@ EOS has been encountered in batch 
partition. 

DLZXCBn3 

@ An ABEND condition has been 


encountered in the batch 
partition. 

. Flag SCDXECB is tested in 
SCDDBMPS. 
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Figure 2-20.4. Batch Request Processing (Part 1 of 2) 


INPUT 
From 
Figure 2-20 
Step 4 
xcs 
SYSTCA 
—= 
System 
TCA PST — am 
PSTPREAD 
XCBt 


XCBI 


XCBIHLPI 


R13 


|PGMRQEP 


R13 





DLZBPCO0 — Batch Partition Controller CSECT 
Extended Description 


1. This routine is entered from BPC 
WAIT routine when the BPC XECB 
(DLZXCBn2) is posted by the batch 
program request handler. 


R10 points to the call parameter list 
in the MPS Batch partition. 


. Macro DLZXCB1 defines a DSECT 
representing the format of the MPS 


batch XECB and following fields 
used for communication between the 
batch and online partitions, 


The End-of-Job flag is set by 
DLZMPIO0 termination routine in 
the field following the XECB. 





PROCESS 


1. Clear POST bit in BPC XECB. 


2. If batch partition at EOJ go 
to Step 10. 


3. Ifa PST is not available go 
to Step 5. 


4. indicate MPS task. 


5. Get address of call parameter 
list. 


6. If not HLPI, go to Step 11. 


7. Set return from call to Step 12. 


8. Save registers. 


9. Get address of program request 
handler (DLZPRHOO). 


10. Go to program request handler. 


7_————_-11. Issue DL/t Call. 


BALR 





OUTPUT 


2 


A 


TWAWLIST 


DLZBPCOO 


Routine Label Extended Description 


. Flag TCADLIPS indicates a PST is 
available. 


. Flag PPSTMPS in PPSTIND indicates 
this is an MPS task. 


. Entry point in the language interface 
module will be ASMTDLI or 


PLITDLI, depending on whether the 
user program is assembler or PL/I. 





Routine 





Labei 


BPCNOPST 
BPCDLICD 





Figure 2-20.4. Batch Request Processing (Part 2 of 2) 


INPUT 


Ri R14 aes 


at R13 _J 


OLZBPCOO — Batch Partition Controller CSECT 


Extended Description 


PROCESS OUTPUT 
12, Notify batch partition that the 
DL/i call has been completed. 
DLZXCBn1 
mm) xrost XECB=DLZXCBn1 
13, If error return on XPOST: 
A. Issue message DLZO84I. 
B. Go to Figure 2-20, Step 5 to 
terminate BPC. 
14, Return to Figure 2-20, Step 3 
for BPC WAIT. 
15. Notify MPS Batch Partition that 
EOJ processing has completed. DLZXCBn1 
To 
Figure 2-20 
Step 5 
DLZBPCOO 


Routine Label 


Routine Label 
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Figure 2-20.5. BPC Termination (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From 
Figure 2-20 
Step 5 


1. Delete BPC XECB. 


uae XECBTAB XECB=DELETE 
TYPE=DLZXCBn2 


P 2. Iferror return on DELETE: 


OLZXCBn2 


A. Issue message DLZ082I. 






ee 
R15 
Ce 
R13 





Ri 


B. Set abnormal termination condition. 


MPCFLAG1 


MPCCNBPC 


Step 6. 
MPCFLAG1 
4. Reset cancel BPC indicator. 
; 5. Go to Step 8. 
MPCPT 
Entry 


3. If BPC cancel indicator is not set, go to 
6. If error on DLZXCBn2, XECB DEFINE 
or on scheduling call: spcer’ 


3 Entry 
A. Set Stop Partition indicator in 


MPCPT. 
B. Locate Stop Partition 
XECB. 
= XECBTAB TYPE=CHECK 
XECB=DLZXCB01 
C. {if error on check, go to Step 7. 
DLZXCBO1 


. Turn on Stop Partition XECB post 
bit. 


“‘DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
Extended Descriptio Routine Label Extended Description Routine Label 


R16 


il 


. This routine is entered on normal 
or abnormal termination of BPC. 


. Bit MPCCNBPC is set by MPC 
when it determines that the batch 
partition no longer is active. 


Flag MPCERR indicates an 
error condition. 


A. Flag MPCPSTP indicates 
stop partition. 


B. Address of XECB is 
retumed in RI. 








Figure 2-20.5. BPC Termination (Part 2 of 2) 
INPUT PROCESS 


Ri R13 


TWABPCSY - 
TWABPSCD _ —_ 


7. Issue message DLZ1031. 


8. If MPC abnormally terminated, 
go to Step 11. 


9. If abnormal termination go to 
Step 11. 


10. Return to CICS/VS. 


mee) DFHPC TYPE=RETURN 


11. Set BPC abnormal termination 
completed indicator. 


12. Return to CICS/VS — ABEND. 


DFHPC TYPE=ABEND 
ABCODE=DBPC 


CANCEL=YES 


DLZBPCO0 — Batch Partition Controller CSECT 
Extended Description Routine Label 
8. Flag SCDXECB at SCDDBMPS 


indicates if MPS is active or not. 


11. Flag TWABPCOK indicates BPC BPCABEND 
ABEND processing was successful. 


12. DBPC ABEND code defines BPC 
failure for CICS/VS dump ID. 


Extended Description 


OUTPUT 

To 
CICS/VS 
DFHPCP 

TWA 

TWAMPSFG 
To 
CICS/VsS 
DFHPCP 


DLZBPCOO 


Routine Label 
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Figure 2-20.6. BPC ABEND Exit Routine 
INPUT PROCESS OUTPUT 


From 
Figure 2-20 
Step 6 


ICA 
1. Initialize message DLZ1041 
= and issue it. 
CPSW 
2. Get this task’s MPCPT entry. a8 


TWA " 
TWABPCID nce | 
TWA 


3. Delete this task’s BPC XECB. 


Ba: 
— j= XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 





RI Ri4 
-—— 4. XPOST the MPS Batch XECB. DLZXCBn1 
umd XPOST XECB=DLZXCBn1 
5. Go terminate BPC abnormally. 
°o 
Figure 2-20.5 
Step 3 
DLZBPCO0 — Batch Partition Controller CSECT DLZBPCOO 
Extended Description Routine Label Extended Description Routine Label 











1. This routine is entered from CICS/VS BPCABND 
if an abend occurs in the Batch 
Partition Controller Module 
(DLZBPCO00). 
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Figure 2-21. MPS Batch (Overview) 
INPUT Fen 
DOS/vs 


From 
Appiication 
Program 





PROCESS 


1. MPS Batch Initialization. 
(See Figure 2-21.1) 


2. MPS Batch Termination. 
(See Figure 2-21.2) 


3. MPS Batch Program Request 
Handler. 
(See Figure 2-21.3) 


4. MPS Batch Message Writer. 
(See Figure 2-21.4) 


5. MPS Batch ABEND Handler. 
(See Figure 2-21.5) 


Extended Description 





Application 


OUTPUT 


DLZMPIOO 


Routine 


Label 
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Figure 2-21.1. MPS Batch Initialization (Part 1 of 3) 


INPUT PROCESS 
From 
Figure 2-21 
Step 1 


i» 1. Read parameter statement and check for 


validity. 
==) COMRG Macro 
——) OPEN Macro 
=) GET Mecro 
==) PUT Macro 


> 2. If data is valid go to Step 5. 





1OAREA 


> 3. If data is invalid, let operator reenter 
parameters. 


(ad PUT Macro 
é== GET Macro 


1OAREA 





a= CANCEL Macro 


IOAREA 5. Save progname and psbname. 


DLi progname,psbname 


Pe 7. Load Application program. 


e= LOAD TXT=NO Macro 
== LOAD Macro 





OLZMP100 — MPS Batch CSECT 


__ Extended Description Routine Labe! 





1. If UPSI byte bit 0 is on, input is from 
SYSLOG. Send message DLZO10A to 
have operator enter information. 

If UPSI byte bit 0 is off, input is from 
SYSIPT. 
Write message DLZ014A if end of file 
on SYSIPT. 

. Write message DLZ087A if data 
invalid. 


. Read operator reply to decide if more 
parameters provided or if job cancelled. 


. If program not found, write message 
DLZ0121 and cancel job. 


———-F 4. Return to Step 1 to recheck data or cancel. 


Extended Description 


OUTPUT 


1OAREA 


as 


tOAREA 


PROGNAME PSBNAME 





USERPROG 


DLZMPICO 


Routine Label 


Figure 2-21.1. MPS Batch Initialization (Part 2 of 3) 


INPUT PROCESS ped 
sone __t____A,, 8, Get identifier, make printable, and =o 
E , make prin . 
fe | save for online to use in message. 
a] 
et, « FLAG2 
oo 0 Set ok 
DLZXCB02 a = 
—— ,. 10. Check if MPS is active. 


DLZx MI 
Ean fe 


B02 ->MPCPT 
MPCPT 
weciD | 


ABSAVEAR_ PCSAVEAR 


OLZMP100 — MPS Batch CSECT 


Extended Description 


9. This prevents another MPS batch task 
from starting or stopping while this one 
is initializing. The value for N in Step 
10 is updated during this process and 
must complete before another batch 
task can use it. 

FLLOCK in FLAG? indicates lock is 
set if 1, is not set if 0. 


. If the MPC XECB(DLZXCBO2) is not 
found, write message DLZ0891. If there 
is no ID available in the partition table, 
write message DLZO88I. Both messages 
are followed by cancel. 


. Write message DLZ0821 if DEFINE 
is not successful. 


Following MPS batch XECB (DLZXCB 
(DLZXCBn1) are parameter fields used 
in communicating with the online 
partition. Macro DLZXCBI contains the 
DSECT which describes this XECB and 
following fields. 





os 13. Set up program check and ABEND 





o=y XECBTAB TYPE=CHECK 
XECB=DLZXCB02 


11. Get partition identifier and modify XECB 


name for all that have N in name. DLZXCBN2 


DLZXCBN1 
12. Define MPS Batch XECB for this 
partition. 
Gah XECBTAB TYPE=DEFINE 
XECB=DLZXCBn1 


ACCESS=XWAIT OLZXCBnt 


PSBNAME Address 
PROGNAME Address 


handling routines. 


STXIT AB 
STXIT PC 

14, Wake up Master Partition Controller. DLZXCB02 
XPOST XECB=DLZXCB02 


15. Wait until BPC started. 
XWAIT XECB=DLZXCBn1 


DLZMP100 


Routine Label Extended Description Routine Label 


14. Notify the online partition (DLZMPC00 
specifically) that an MPS batch job is ready 
to execute and write batch started message 
DLZ0811 if XPOST successful. 


If XPOST unsuccessful, delete MPS batch 
XECB (DLZXCBn1), write message 
DLZ0841, and cancel. 


. Wait is made for DLZBPCO00 to post the 
MPS batch XECB (DLZXCBn1) to notify 
us it is initialized and has completed a 
DL/I scheduling call for us. 


XECBDEF1 


OLZXCBO2 XECBTAB 
address entry address 
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‘Figure 2-21.1. MPS Batch Initialization (Part 3 of 3) 


INPUT PROCESS OUTPUT 
Be a 16. If error return on XWAIT: 
camera A. Write message OLZ084i. 
B. Go to Figure 2-21, for MPS Batch hace 
ABEND Handler. 
j~————_¢ 17. Check if online partition successfully COMREG 


initialized for MPS. 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn3 





18, Reset lock. 


AF 


19. Move program request handler COBOL, RPG 1, 


i 
RO or Assembler = PL/I 
address to. COMREG. a ”C*a 
sp MVcOM 
\ PCB 
20. Set up indirect list for PL/I! PSBs. 
TCA | 
21. Set up parameter list for application : R14 
Program. : XECBTAB 
PSTPSB 
DIR 


v, 





VF, 


Entry 
P| =) 
PDIRADDR 
PDIRCODE 
OLZXCBn2 


22. Locate BPC XECB. 
ar == XECBTAB TYPE“CHECK 
USERPROG 


23. Exit to application program. 


Application 
Program 


24, Go terminate. 





To 
Figure 2-21 
Step 2 
DLZMPIOO — MPS Batch CSECT J OLZMPI00 


Extended Description — Routine Label Extended Description Routine Label 
17. If online side successfully initializes, 21. If PL/I — a three-word list is set up 


XECB DLZXCBN3 is created. with pointers to PCBs in PLITABLE, 


ite message DLZ0991 i amount of dynamic storage, and start 
ned nee P NEDEEXCENS of dynamic storage area for PL/I. 


Write message DLZ095I and the retum If COBOL, RPG I. or Assembler — R1 
code if a scheduling error indicated. points to first PCBADDR. 


messa; The language indicator is set in the 
baad: attac! Atenas sere cone parameter field following the MPS 


batch XECB (See DLZXCB! Macro). . 
18. No more need to serialize. 


. An application program runs as a 
19. subroutine of DLZMPi00. 


20. 
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Figure 2-21.2. MPS Batch Termination 
INPUT 


PROCESS OUTPUT 
From 
Figure 2-21 
Step 2 
OTL FLAG 2 
| NAME=DLZMPSOL_____._> 1. Set lock for termination. 
; XCBI DLZXCBn2 
2. Notify online batch partition controller 
for this partition to terminate. 
= XPOST XECB=DLZXCBn2 
R15 3. If error return on XPOST: 
i A. Write message DL.Z0901. 
B. Go to Figure 2-21, Step 5, 
to ABEND. 
DL2xcBn1 4. Wait for online BPC to terminate. 
= XWAIT XECB=DLZXCBn1 
ats 5. If error return on XWAIT: 
a A. Write message DLZ0901. 
B. Go to Figure 2-21, Step 5, 
to ABEND. 
DLZXCBn1 > 6. Delete MPS batch XECB. 


al 


D 


| NAME=DLZMPSOf— > 7. 


DLZMPIOO — MPS Batch CSECT 


cs) XECBTAB TYPE=DELETE 
XECB=DLZXCBn1 
FLAG 2 
Reset lock. FLLOCK 


ee 


To 
DOS/VS 


DLZMPIOO 


Extended Description Routine Label Extended Description Routine Label 


1. This prevents another MPS batch 
task from starting or stopping 
while this one is terminating. 
The value of N is being set up 
for reuse during this locked 
interval and must complete 
before another MPS batch task 
can use it. 


This routine is entered when 


the application program com- 
pletes. 


If the application program is 
written in PL/I code, the 
SCDLIPLI flag in the SCD 
is reset to 0. 


Macro DLZXCBI defines a 
representing the 
format of the MPS batch 


XECB and following fields used 
for communicating with the 
online partition. 


The end-of-job flag is set to tell 
DLZBPCO00 the batch partition 
is at EOJ and the BPC XECB is 
posted to tell DLZBPCO0 to stop. 


No more need to serialize. 
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Figure 2-21.3. MPS Batch Program Request Handler (Part 1 of 3) 
PROCESS OUTPUT 


INPUT 
From 
Application 
Program 


R13 Rt 






Address 
ABNDPC 


PCSAVEAR 


= 


Call List 
T 








OLZXCBn1 — 


DLZMPI00 — MPS Batch CSECT 
Extended Descriptio:. 


1. This routine is entered on each call to 
DL/I made by the application program. 


During the first entry to DLZMPRH, the 
PL/i STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZMPRH also 
sets/resets a switch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or PL/I 
code. This is done to enable high level 
language debugging for PL/I to give 
diagnostic information if a program 
check occurs in PL/I code. 


PL/I reissues STXIT PC when application 
program starts. Therefore, DL/I must 
reissue STXIT to get control after PL/I 
issues its STXIT PC. 


. Write message DLZO911 if more than 18 
parameters. 


- Ensure call list and addresses it points to 
are within batch partition (except for 
PCB). If PL/I, ensure that pointers 
pointed to by pointers, are within the 
batch partition. 





SAVER13 R2 


Address 


1. Reset PC STXIT if first call from PL/I. 


PC Option 
Table 


2. Ensure parameter list does not contain 
more than 18 parameters. 


3. Check if all user parameter list addresses 
which should be, are within batch 
partition. 


4. Move parameters to area following MPS 
batch XECB (DLZXCBn1). 


5. Notify BPC aDL/I call is ready to be 
processed 


=a XPOST XECB=DLZXCBn2 


6. Wait for BPC to complete processing 
the call. 
am) wart xeEcB-DizxcBn1 





XCBICNT 


XCBIPARM 


DLZXCBn2 


ae 


DLZMPIO0 


Extended Description 
3. (cont’d) 


Write message DLZ0921 if there is a bad 
address and ABEND. 


4. Macro DLZXCB1 defines the DSECT 
describing the DLZXCBn1 XECB used 
for communicating with the online 
batch partition controller (DLZBPC00). 


5. If error return on XPOST, write message 
DLZ084I, then ABEND. 


6. If error return on XWAIT, write message 
DLZ084I, then ABEND. 


Routine 








Label 











Figure 2-21.3. MPS Batch Program Request Handler (Part 2 of 3) 
INPUT PROCESS 


DLZXCB02 


MPCPT s A ‘ 
Entry — -—p 7. If anerror occurred during online 


MPCFLAG 


processing, go to Step 14. 


MPCPT 
Entry 


, T 
MPCTCA TCAFCTR — —} 
TCA 


TCASYAA 


System 
TCA —> 


TCADLII 


9. If no PST, go to Step 12. 


PS — - 10. If a task or system ABEND, go to Step 14. 


T 
TCADLISA PSTABIND 












PSTUSER 
PSTSEGL 
PSTSEG 


11, Move data to user area, 


DLZMPIOO — MPS Batch CSECT 


Extended Description Routine Label Extended Description 


7. MPCERR flag indicates an error condi- 
tion occurred during BPC processing. 
Write message DLZ100I if on. 


. Write message DLZ102I including the 
retum code if present. 


. The storage acquired indicator 
TCADLIPS is turned on by online 
nucleus DLZODP when the PST is 
acquired. ; 

If no PST, it just did a TERM call. 


. Write message DLZ098I if PST con- 
tains an error. 


. Write message DLZ100I if the data 
addresses are invalid. 





8. If error return code in TCA, go to Step 14. 


OUTPUT 


PST 


PSTUSER 


User 1/0 Area 










DLZMPIOO 


Routine Label 
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Figure 2-21.3. MPS Batch Program Request Handler (Part 3 of 3) 
INPUT PROCESS 


DLZxcB02_ —— _— 12. Check if MPC is active. 


emm) xecotas Trre=cHeck 


XECB= DLZXCB02 





SAVER13 
waaicsat =. Return to application program. 
Save Area 
To 
Application 
Program 
14. Go to ABEND handler, Figure 
-21, Step 5. 
DLZMP100 — MPS Batch CSECT DLZMPIOO 
Extended Description Routine Label Extended Description Routine Label 





12. If the START PARTITION XECB is NODATA 
not at the same address as when the 
batch job started indicating there was 
a deletion and new define, or if it no 
longer exists, write message DLZ0821 
and go to Step 14. 
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Figure 2-21.4. MPS Batch Message Writer 








From Figure 2-21.5. MPS Batch ABEND Handler 
INPUT Caller PROCESS OUTPUT INPUT PROCESS OUTPUT 
External 
Entry® 
Caller 
a 1, Convert message number to 10 AREA Registers oer - 
[Message 1D | printable decimal. om 1. Initialize registers and go to Step 8. 
eh 2. Set AB entry indicator. 
2. Find message text. IOAREA ry FLAG 
‘(ouzwusct _ es RO 3. Save ABEND code and go to Step 4. 
it) 
4. Set PC entry indicator. FLAG 
1OAREA 3. Put message to console and printer 
untess caller indicates no message aoe : 
should be written ' to one of them. ea 5. If error occurred while in PL/I code, 
modify return address and branch to 
(ummm) Pur consore PL/I STXIT PC routine. 
(eam) eur printer ee 6. Write error message DLZ096I. 
Calter 
Registers 
4. Clear output area and return. JOAREA 
: DTL FLAG2 
er! 7, Set lock if not already set. FLLOCK 
To! FLAG2 
ed 8. Notify online an ABEND condition 
exists. DLZXCBn3 
damn} XPOST XECB=DLZXCBn3 
DLZXCBn1 —— 9, Delete this partition’s MPS batch 
= ECB, 
= XECBTAB TYPE*DELETE 
XECB=DLZXCBn1 
OTL FLAG2 
—_— 10. Reset lock. 
FLAG _— 11. Cancel if entered via AB or PC 
en =I STXIT and dump not required. 
DLZMP100 — MPS Batch CSECT DLZMP100 


a) CANCEL 


Extended Description Extended Description Routine Label 
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This routine is entered at one of two 
labels: 
DLZMMSG - Main entry 
DLZMMSGX -— Entry if branching to 
this routine from an external 
module. 
In either case, initialize registers and then 
do the listed steps. 


. This routine is entered when a message is_ 


to be written to SYSLOG and/or 


. SYSLST. 


. The message module DLZMMSGT 


includes all messages that can be issued 
by MPS and is used in both the batch 
and online partitions. 








DLZMPIOO — MPS Batch CSECT 
Extended Description 


*There are four entries to this routine: 
. External. 
. AB STXIT 
. PC STXIT 


. The MPS Batch Initialization, MPS 
Batch Termination, and MPS Program 
Request Handler routines (whenever 
XPOST is needed to tell online that 
batch completed unsuccessfully). 


. The AB output area is located in a 
dump following the DC C‘AB SAVE’ 
characters. 


. The AB reason code is located in a 
dump following the DC C ‘AB 
AB! CODE’. 

. The PC output area is located in a 
dump following the DC C ‘PC SAVE’ 
characters. 


12. Get a dump and end. 


IDUMP or JOUMP 
DLZMPIOO 


Routine Label Extended Description ; Routine Label 
. The address of the PL/I STXIT PC 
routine was saved during the first entry 
to DLZMPRH (see Figure 2-21 .3, Step 1). 
After PL/I completes diagnostic infor- 
mation, processing returns to modified 
address in DLZMABND. 


. Prevents another MPS task from starting 
or stopping concurrently. 


10.No longer need to serialize. 


12.IDUMP issued if support exists; 
otherwise JDUMP. 





Z OUINJOA enue NZ0Y SA/SOCI/1G yl -Z 





Figure 2-22. Stop Transaction 


INPUT From 
CICSIVS 


DFHPCP 


DLZMSTPO — MPS Stop Transaction CSECT 


1. Module identifier (DLZMSTPO) 
is defined here. 


Write message DLZO80I if 
DLZXCBOO does not exist — 
MPS not active — and go to 
Step 3. 


- Note that the XPOST macro is 
not needed to turn on the POST 
bit because stop transaction 
XECB (DLZXCBO0) is defined in 
the same partition as this module. 
DLZXCBO00 is defined by 


DLZMPCO0O. 


PROCESS OUTPUT 


1. Locate stop transaction (MPS) 


XECB. R 
DLZXCBO0 
- Address 
amb XECBTAB TYPE=CHECK Ea 
XECB=DLZXCB00 
2. Turn on POST bit in stop PLZxXCBOO 
transaction (MPS) XECB. Fe 


3. Return. 


= DFHPC TYPE=RETURN 


To 
DFHPCP 
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Figure 2-23. Queuing Facility (Overview) (Part 1 of 2) 


INPUT From 
Calter 


PST — —— 


PSTFNCTN 





DLZQUEFO — Queuing Facility CSECT 


Note: QENQDEQ is the general purpose 
entry point for requests to ‘enqueue; 
‘dequeue’, or ‘verify’ a resource, or to 
‘purge’ all enqueues for a task. 


1, Module identifier (OLZQUEFOvinp) 
is defined here. The level format is 
vmp; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. 


3. The proper queue head is first located 


by hashing the resource ID. That 
queue is then searched for a RDB 
with the same resource ID. If found, 
its address is passed back compli- 
mented. Otherwise, the address of 
the last position on the queue is 
retumed. 


PROCESS 


QENQDEQ (See Note) 
1. Initialize registers and 
data fields. 


2. If requested function is 
‘purge’, exit to QPUR routine. 


aed Eo 


Upon return, go to Step 7. 


[ ____ # 3. Locate RDB, if any, for 


given resource ID. 
if no RDB located, go 
to Step 7. 


4. If requested function is 
‘dequeue’, exit to QODEQ 
routine. 





Upon return, go to Step 7. 





OUTPUT 


PST QWaA 


PSTRTCDE QWAFLG1 


R1-R15 





If found: 


‘| 1€ not found: R2 


Last Position 
on Queue 


DLZQUEFO 





Figure 2-23. Queuing Facility (Overview) (Part 2 of 2) 


(INPUT 


SCDABEND 
ISCDERRMS 


OLZQUEFO — Queuing Facility CSECT 


6. Message DLZ2671 is issued. 


7. This routine is used for common 
ing during exit for enqueue, 
dequeue, verify, and purge request. 


If processing is successful, a 0 return 
code is set in R15. Otherwise, the 
PST retum code field (PSTRTCDE) 
is checked for error return codes. 
If present, the R15 retum code is 
set to 4 and the registers are saved 
in the ABEND save area. 


PROCESS 


5. if requested function is 
‘enqueue’ or ‘verify’, 
exit to QENQVER routine. 


(= Process 


Enqueue/Verify 
Requests 
2-23.3 


Upon return, go to Step 7. 


6. If the PSTFNCTN Field 
contains an unrecognizable 
function code, terminate 


the task. 


7. Return. 


RD | 1 aseno 
Routine. 





OUTPUT 


Ris 
0 — if normal exit 


4 — if error resulting 
in termination 
occurred 


To 
Calter 


DLZQUEFO 
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Figure 2-23.1. Process Purge Requests 
INPUT 





DLZQUEFO — Queuing Facility CSECT 


Note: This routine is used to purge all 
complete or outstanding enqueue requests 
for a given task. 


1. A. The address of the next RRD 
is saved because it would be 
destroyed when the current 
RRD is returned to the free 
space. 


This routine is called to 
relinquish ownership of a 
resource by dequeuing the RRD 


for the task. It is entered by 
purge at entry point QDEQPUR 
to avoid the unnecessary 
overhead of unchaining the 
RRD from the PST. 


w= PROCESS 


OPUR (See Note) 


1. Scan each RAD attached to 
the PST RRD chain. For 
each RRD: 


A. Unchain the RRD from 
the PST forward chain 
by storing the address 
of the next RRD in the 
‘first’ PST pointer. 


B. If the task is an owner of 
the resource, the owner- 
ship is released and new 
owners, if any, are located 
and promoted. 


C. If the task is not an owner, 
the RAD is unchained from 
the RDB-RRD chain and its 
space is returned to the free 
block queue. Flag parameters 
are then passed to any other 
waiting task. 


2. When all RRDs on the chain have 
been processed, the ‘last RRD’ 
pointer is reset. Also, the number 
of resources owned and the wait 
chain pointer are both set to 
zero. 


3. Exit to QRETURN. 


OUTPUT 


PST 


iPSTRRDF 


Pst 


PSTRTCDE 
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Figure 2-23.2. Process Dequeue Requests (Part 1 of 2) 
INPUT PROCESS 


QDEQ (See Note} 


=~ 


. If an RDB previously located 
(Figure 2-23, Step 3), locate the 
RRD, 


If no RRD exists, exit to 
QRETRUN (Figure 2-23, 


Step 7). 
PST ‘ > 2. Decrement by 1, the ownership 
_ count for the specified 
level. 


> 3. If the remaining ownership count 
is not zero (or if it is zero, but 
the level is not the maximum 
for the RRD), pass any FLAG 
Parameters to the waiting tasks. 
Then go to Step 6. 


DLZQUEFO — Queuing Facility CSECT 


Extended Description Routine Label 








Note: This routine is used to process 
a request to dequeue a resource. 


1. 


2. This routine is also used by ‘verify’ 
processing to dequeue a resource 
. that was enqueued due to a required 
wait. 


Extended Descripti 


Figure 2-23.2. Process Dequeue Requests (Part 2 of 2) 


OUTPUT INPUT PROCESS 
RAD 4. If any counts are left at 
lower levels: 
IRRDNQRO | 
A. Lower current level of 
ownership by task. 
B. Promote any new owners 
R3 made eligible by the 
decrease in level. 
C. Go to step 6. 
5. If no counts are left at any 
level: 
RRD 
A. Release the resource. 
or 
B. Promote any new owners 
made eligible by the 
or release. 
6. Exit 
PST 
DLZQUEFO 
Routi 
aa oe Extended Description Routine _Label Extended Description 


5. Entry point QDEQPUR in this 
routine is used by ‘purge’ 
processing to release a resource 
already unchained from the 
PST/RRD chain. 





To 
Figure 2-23 
Step 4 


OUTPUT 


Routine 
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Figure 2-23.3. Process Enqueue/Verify Requests (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From 
Figure 2-23 
Sep 5 
QENOVER (See Note} 


R2 — —F- 1. Check if RDB exists. 
if RDB does not exist: 





Upon return, go to Step 6. 


2. If RDB does exist, call 
QPFLAGP to pass any 
flag Parameters to 
waiting tasks. 


PsT 
zi aa 


R3 


3. Locate RRD or position 
on chain. 


4. lf RRD exists: 


Existing Resource 
Enqueue 
2-23.5 






Upon return, go to Step 6. 


DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


Extended Description Routine Extended Description Routine 







Note: This routine is used to process 
enqueue and verify requests. It deter- 
mines the type of enqueue (or verify) 
and enters the proper routine for the 
type. The possible types are: 








@ New resource enqueue — The enqueue 
of a resource not currently enqueued. 






@ Existing resource enqueue — The 
enqueue of a resource currently 
enqueued, but not by this task. 






@ Re-enqueue — The enqueue of a 
resource currently enqueued by 
this task. 










Processing of bearer and verify 
requests is essentially th e same. The 
difference is that on the retum from 
verify processing, the user is not the 
owner of the resource. 






Lo 


Figure 2-23.3. Process Enqueue/Verify Requests (Part 2 of 2) 
INPUT PROCESS 





5. If RRD does not exist: 


DLZQUEFO — Queuing Facility CSECT 


Extended Description _ Routine 


ain) 


Re-enqueue 
2-23.6 


Extended Description 





To 
Figure 2-23 


OUTPUT 


DLZQUEFO 


Routine 
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Figure 2-23.4. New Request Enqueue Figure 2-23.5. Existing Resource Enqueue 
INPUT PROCESS OUTPUT t{NPUT PROCESS OUTPUT 


QNRENO (See Note} QREENQ (See Note} 


RRD PST 1. If the requested level is not 
1. If the function is ‘verify’, RRDMAX PSTOLEV higher than the current 
processing is phate maximum for the task, the 
at this point because the resource is available. Therefore: 
resource is available. Go is 
to Step 3 to return to _ aa z A. if nd sped sonetion is 
caller. ; ‘verify’ go to Step 5. 


B. Otherwise, increment ownership 
count for the level by one. 
Go to Step 5. RRD. 


RRDNOQRO 
RRDNQUP 
RRDNQEX 


2. If the function is ‘enqueue’: 


A. Build and initialize an 
RDB and chain it on the end of 
the proper RDB queue. 


R3 
B. Build and initialize a [| 


RRD and attach it to 
both the RDB and PST 
RRD chains. a3 


és seearaeeas 


resource owner. 






RDB pst ty 2. If the requested level is 
compatible with the 
current maximum for the 
resource and if the 
requested function is 


A. ‘Verify’ — Go to Step 5. 


B. ‘Enqueue’ — Define the task 
as an owner at the new level 
and go to Step 5. 


3. Otherwise, do deadlock 
detection and wait for 
resource availability. 


3. Exit. 


To 4. If function is ‘verify’, dequeue 
Figure 223.3 the enqueued resource. 


Step 1. 


5. Exit. 





OLZQUEFO — Queuing Facility CSECT DLZQUEFO 
Extended De: 


Note: This routine is used to process 
an enqueue (or verify) request for a 
resource that has no current enqueues 
outstanding. DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


2. A. R2 points to RDB chain 
location. R3 points to RRD 
chain head in RDB. 


To 
Figure 2-23.3 
Step 4 





Extended Description 
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Note: This routine is used to process 
an ‘enqueue’ or ‘verify’ for a resource 
that is currently enqueued by the 
requesting task. 


2. 


3. The task will be defined as an owner 
of the resource during ‘dequeue’ pro- 
cessing for other task. 


The QDLKDTN routine detects a 
deadiock condition and resolves the 
deadlock by picking and terminating 
one of the tasks involved. The task 
terminated is selected as follows: 








1. Online tasks are picked before 
MPS tasks. : 

2. Within a class, the task with the 
fewest resources currently enqueued 
is chosen. 


3. In the event of a tie, the choice 
is arbitrary. 
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OLZQUEFO — Queuing Facility CSECT 


Extended Desorip 


Note: This routine is used to process an 
‘enqueue’ or ‘verify’ request for a 
resource that is currently enqueued, but 
not by the requesting task. 


To build and chain RRD, call 
QBLDRRD. 


To make task a resource owner, 
call QDASOWN. 


To build and chain RRD, call 
QBLDRRD. 


The task will be defined as an 
owner of the resource, during 
fort a processing for other 





QERENAO (See Note} 


1. If resource is available 
at requested level: 
If function is ‘verify’, 
go to Step 3. 
Build RRD and chain to 
RDB and PST. 


Define the task as a 
resource owner. 


Go to Step 3. 


2. If resource is not 
available at requested 


A. Build RRD and chain to 
RDB and PST. 


Do deadlock detection 
and wait for resource 
availability. 

If function is ‘verify’, 
dequeue the enqueued 
resource. 


The QDLKDTN routine detects a 
deadlock condition and resoives the 


one of the tasks involved. The task 
terminated is selected as follows: 


1, Online tasks are picked before 
MPS tasks. 


2. Within a class, the task with the 
is chosen. 


3. In the event of a tie, the choice 
is. arbitrary. 


c. 


deadlock by picking and terminating 





OUTPUT 


fewest resources currently enqueved 
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Figure 2-24. Visual Table of Contents for DL/I Utility Modules HIPO Charts 


Data Base 
Recovery © 
Utilities 


DLZUDMPO 

OB Data set 

Image Dump 
2-25 


OLZUCUMO 

DB Change 

Accumulation 
2-26 


OLZURDBO 
DB Data Set 
Recovery 

2-27 


DLZBACKO 
DB Change 
Back-Out 

2-28 


OLZLOGPO 
Log Print 


2-39 


Data Base 
Reorganization 
Utilities 


OLZURULO 
HS DB 
Unload 
2-29 


DLZURRLO 
HS DB 
Reload 
230 


DLZURGUO 
HD DB 
Unload 

2-31 


DLZURGLO 
HD 08 
Reload 
2-32 


DB Logicat 
Gea Relationship 
uty. Utilities 


DLZUACBO- DLZURPRO 
ACB Creation Prereorgani- 
(Overview) zation 

2-33 2:34 


DLZSTTiL DLZURGSO 

DL/E Run DB Scan 

and Buffer 

Statistics : 2-35 
2-42 


Partial DLZURG10 

Data Base Prefix 

Reorganization Resolution 

(Overview) 2:36 
2-43 


DLZURGPO 
Prefix 
Update 

2-37 


OLZTPRTO 
Trace Print 
Utility 

2-41 


DLZDSEHO 
Workfite 
Generator 

2-38 
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Figure 2-25. DB Data Set Image Dump 


INPUT PROCESS OUTPUT 
From 
DOS/vVsS 
DLZUDMPO: 
= || > 1. Read control card and 
Controt validate contents. 
| 
2. ine ice type for 
SYSIPT t file ° 
and open file. 
[ome SO 3. Load DMB and obtain 
physical attributes of 
data set. 
4. Write DL/! header to 
ae ° a 
SyYso11 
(SYS012) 
on 5. Open input file and reed 
segments sequentially, add 
Date Set 8-byte prefix to identify the 
specified in segment, and block and 
control card write the logical record 
(prefix + segment) to the 
output file. 


DLZUDMPO — DB Data Set image Dump Utility DLZUDMPO 


Extended Deseri 





1. Read and validate control statement. 
Write the following messages as needed: 


DLZ302I - Column 1 not D 

DLZ303I - Column 2 not 1 or 2 

DLZ304I - DBD name field not specified, 

DLZ307I - Input filename not specified 

DLZ308I - Output filename not specified| 

DLZ309I - Error(s) found in control 
statement 


DLZ310I - Image of erroneous control 
statement 


- DLZDVCE macro obtains data from 
PUB. Device type may be tape or DASD. 


. The header record contains information 
that allows the use of the image dump 
file by the DB data set recovery utility. 
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Figure 2-26. DB Change Accumulation (Part 1 of 2) 
INPUT PROCESS 
From DOS/VS 


1. Get time and date of this 
execution. 


2. Call Input Card Processor 
(Figure 2-26.1) to read and 
Control Cards Process control cards. 





3. If no CUMOUT, but LOGOUT, call 


Write Logout (Figure 2-26.2) 
to write logout. 


4. If CUMOUT, loaded sort program 


and call Write Logout (Fig 2-26.2) 
and Sort Module (Fig 2-26.3). On 


EOGINDI-29:.|' CUMIN completion of sort, go to step 6. 


(optional) 





From Fig. 
2-26,2 


Entry for error detected in 
DLZUC150 (Write Logout). 


5. Establish Addressability. 


DLZUCUMO — Change Accumulation Utility 


Extended Description Routine 


Header line is printed on SYSLST. 
Three returns as follows: 
@ Error ~ issue error message. 


®@ No accumulation output, call Write 
Logout (Fig 2-26.2). Then issue 
successful run message. 


® Accumulation output, call SORT. 


SORT is invoked by LOAD and 
BALR. At exit 35, Sort Module (Fig 
2-26.3) is called. 


This entry point is necessary because 

Write Logout, not knowing who called 
(DB Change Accumulation or SORT), 
must return to this module if an error 


(SORT) will sort LOGINxx records 


Extended Description 


7 Bil 


OUTPUT 


LOGOUT 


LOGOUT 





DLZUCUMO 


Routine 





Figure 2-26. DB Change Accumulation (Part 2 of 2) 





INPUT PROCESS 
PROCFLAG — — », 6. Call Write Messages (Figure 2-26.4) 
to write completion message. 
7. Exit. 
“ DLZUCUMO — Change Accumulation Utility 
Extended Description Routine Label Extended Description 


6. May be OK message or error message 
from SORT, Write Logout, or Sort 
Module. If PROCTERM X‘01’ bit is 
on in PROCFLAG, an error occured. 


Return to 
DOS/VS 


» OUTPUT 


ras 


SYSLST 


DLZUCUMO 


Routine 


SYSLOG 


Label 
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Figure 2-26.1. Input Card Processor (DLZUCCTO) Figure 2-26.2. Write Logout (DLZUC150) 


INPUT PROCESS OUTPUT INPUT From Caller ga PROCESS OUTPUT 


From Fig. 
2-26 Step 2 (See Note) 


~ 


Paranister . Establish addressability and save sort 


1. Read control cards, validity ‘aig List parameter list address. 


, check, and create Log Input Spec Tabl [A (record) | 
SYSIPT Specification Table. [ elcaib 





2. If initial entry, open LOGIN and 
LOGOUT (if needed). Obtain work- 


2. Save appropriate control card CUMCONST space via GETVIS. 
data. 
3. Read log records bypassing all but 
‘QF’ and ‘50’. 
} cl § 
LOGINO1-99 
4. The ‘50’ record is bypassed under 
3. Issue GETVIS for DB and certain conditions. 
Date/Time Table, if required. DB Table Date/Time 
Table 
5. Write the selected ‘50’ record to 
ae 4. Check for valid DMB in CIL. output log file. Sur 
DMB from Prepare DB Table and Date/Time 
cil Table in alphabetical order. 6. Pass selected log records to SORT 
module and return. 7 
og record 
5. Test for valid combination of 
gare cr ae inner seme rele 7. if any error occurs, exit to DLZUCUMO 
: (Fig 2-26, step 5). 
8. After all input records are processed, 
6. Return to caller. : return to caller. 
To Figure 
2-26 Step 3 
Return to 
Caller 
- DLZUCUMO — Change Acoumulation Utility OLzucUMO DLZUCUMO — Change Accumulation Utility DLZUCUMO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine _—_ Label 





3. Tables are not required if *ALL was Note: This program has two entry points: 4. (con’t) 
specified. The number of entries in 

each table is equal to the number of 
data bases as specified on the ID control 


card or default of 16. 


1, Possible card types are: 


@ DLZUCISO — from SORT. 
Entered when SORT wants 
another input record. 


@ No dbname match and log date/time 


@ ‘ID’ specifies db number, max key 
less than purge date/time. 


length, number of sort, work, and 
log files. 


‘DBO’ describes records to be 
accumulated from input and 
written to CUMOUT. 


5. Write log record for the following ‘50’: 


. This information is filled from the DBO 
and/or DB1 card(s) if present. 


@ DLZUEXI5 — from Figure 2-26, 
step 3 (DLZUCUMO). @ *ALL on DBI card. 
3. On EOF, the file is closed. If more input 
specified , xx (LOGINxx) in the DIF 
or ACB is incremented by | and the 
next log file is opened. 


@ Dbname match and dbname on DB1 
card. 


. If any errors occur during steps 3, 4, 
of 5, call Write Messages (Fig 2-26.4) 
to write error messages and exit. 


‘DBI’ describes records to be 
written to new log file. 
®@ No dbname match and *OTHER on 


“LI describes a log input file. DBI card. 


. Bypass ‘50’ record for the following: 
Error card — call Write Message 
(Fig 2-26.4) to write appropriate 
error message. 


*ALL and log date/time less than 
purge date/time. 








dbname match and log date/time 


. Data from control card(s) is saved in a 
less than purge date/time. 


dsect residing in DLZUCUMO, 
addressable by all modules in this 
utility. The dsect name is DLZUCUMC. 








No dbname match and *OTHER 
not specified. 
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Figure 2-26.3. Sort Module (DLZUC350) 
INPUT From SORT 





Sorted log 
record 


CUMIN [ 


DLZUCUMOD — Change Accumulation Utility 


Extended Description 


1. SORT retums at EOF with an indication 
that no more records exist. 


. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 


. The following merging logic is used for 
comparison of LOGIN and CUMIN to 
create CUMOUT. 


@ For every new DMB name (data set 
ID), an accumulation header record 
is written either from the CUMIN 
record or created from the ‘2F’ 
record, 


Every CUMIN record is purge 
checked by date/time as specified 
by the user. The DB table as 
modified by DLZUC150 is used 
for a specific DMB or the *ALL/ 
*OTHER purge date is used as 
applicable. 


If a matching log record is found, 
all log records with the same data 
ID will be merged with the CUMIN 





PROCESS OUTPUT 


1. Receive log record from SORT. 


2. Initial entry processing as follows: 


A. Process ‘2F’ record and obtain 
workspace via GETVIS. 


B. Determine device type for CUMIN 
(if specified) and CUMOUT. 


SE 3. Sorted log records are me with 


matching CUMIN records (if specified) 


and records written to CUMOUT. cUMoUT 
4. When next fog record needed, return Parameter 
to SORT. _ 
aa 
A {retncod) 


SORT 


5, When all log records and CUMIN 
records are depleted, return to SORT. 


Return to 


DBLZUCUMO 


Extended Description Routine Label 


3. (con’t) 


record and written to CUMOUT. 


@ If there is no matching log record, 
the CUMIN record is written to 
CUMOUT unchanged. 


@ If log records exist but no CUMIN, 
the log records are accumulated by 
data ID and written to CUMOUT. 


. A ‘delete’ return code is given to SORT 
so that SORT does not further process 
the current record. SORT will prepare 
the next input record and enter this 
program at step 1. 


. Free all work areas and close CUMIN 
and CUMOUT. 
Indicate ‘no return’ to SORT. 





Figure 2-26.4. Write Messages (DLZUCERO) 


INPUT From Caiter (™ PROCESS 


(See Note) 


1. Obtain address of the csect 


DLZCUMMO 
{DLZCUMMO) and output DTF. 


4 2. If multi-part message and first time 
r though, 


A. Calculate address of message. 


B. Set Register 2 to next print 
position. 


C. Go to step 5. 


RI pes tS 3. Calculate address of message if 


single part message, 


4. Write output message. 


5. Exit. 


DiLZUCUMO — Change Accumulation Utility 


Extended Description Routine Label Extended Description 


Note: This module can be called by 
DLZUCUMO, DLZUCCTO, 
DLZUC150, or DLZUC350. 


. The address of the output DTF which 
has already been opened, is found in 
the CUMCONST table. 


. Multi-part message is indicated by 
negative R2. 


. Ri contains message number. 


. Output can be to SYSLST or SYSLOG. 


OUTPUT 


SYSLST SYSLOG 


Return to 
Caller 


DLZUCUMO 


Routine Label 


Wal Jo Aj20d01g—feL19;8 I] pasueory] 


9ST -¢ 


Z SUINIOA ‘enue SISO'T SA/SO I/1d 


Figure 2-27. DB Data Set Recovery (Part 1 of 2) Figure 2-27. DB Data Set Recovery (Part 2 of 2) : 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


From 
DLZARCOO 
ore | EEN 
> 1. Obtain DL/It contro! block _— = 
OMB PST addressability via GSCD é " oLzDen00 


call. ; DB Buffer 
eS | | Rane 


= 2. Read and process control 
cards. 


7. Read and merge data and 
write records. 


2-15 





8. Close input files. 





9. If no log input is to be 
SYSIPT = |_pizurcco i processed, go to Step 13. 
Contro! Statement 
Processor 


10. IN file. 
4 0. Open LOG ile. 


3. Determine device type for 





each input. 11. Process all log records for 
4. Open data set (open ACB sis. ort 
call). LOGINOT to LOGINxx ==) Data Set 
eeu) 





2-14 





12. Close LOGIN file. 
13. Close Data set (close ACB 


5. if processing only log 
records, go to Step 10. 











call). 
T _______...» 6. Open input file(s) and 
process DL/I ler 
information. Gam 
Open/Close 
2-14 
14, Exit. 
DLZURDBO — DB Data Set Recovery Utility OLZURDBO To 
DOS/Vvs 
Extended Description Routine Extended Description Routine Label 
DLZURDBO — DB Data Set Recovery Utility DLZURDBO 


2. There are three returns: 
Extended Description 





@ No errors — continue processing. 


@ No input statements — terminate 
processing. 

@ Error — issue error message and 
terminate processing 


- DLZDVCE macro obtains data from 
PUB. Device type may be tape or 
DASD. 


. DUMPIN file is mandatory and may 
be output from DLZUDMPO or 
DLZURULO. 


CUMIN file is optional and is output 
from DLZUCUMO. 








7. Records are read from DUMPIN and 
CUMIN via GET calls and are written 
in ascending order (compare by key 
if KSDS, and by RBA if ESDS). The 
proper PSTFNCTN is supplied for 
call of buffer handler. 


. LOGIN file is optional. 


. LOGINO! to LOGINxx files are 
processed sequentially. 
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Figure 2-27.1. Control Statement Processor 


INPUT a PROCESS 

Figure 2-27 

Step 2 

ny 
SS 1. Read control statements and 
check for validity. 
2. Create log input specification 

SYSIPT table. 


3. Test for default tape log. 
4. Return to DLZURDBO. 


DLZURCCO — Control Statement Processor CSECT 


Extended Description Routine Label Extended Description 


1. Possible card types are: DLZURCCO GETCARD 
‘S’ — identifies data set 
to be recovered. 


‘LP — describes log input 
file(s). . 


Write the following messages as needed: 


DLZ302I - Column 1 not S 

DLZ304I - DBD name not specified 

DLZ3071 - Input filename not specified 

DLZ310I - Image of erroneous control 
statement 

DLZ342I - Invalid number of log files 

DLZ372I - Invalid log buffer size 


. One entry in table describing file type, 
logical unit, and buffer size for each 
log file. 


. Hf no log file is specified, issue macro 
DLZDVCE to see if SYSO13 assigned 
to tape. 


OUTPUT 


Log Input 
Specification Table 


[_ 


To 
Figure 2-17 


Step 3 


DLZURDBO 


Routine 





Label 





Figure 2-28. DB Change Backout 
INPUT From DL/I 


SYSIPT 


(fc | 


LOGINO1 to LOGINxx 





DLZBACKO — Data Base Backout Utility 


Extended Description 


. ‘LI’ control cards describe one input 
log file each. 


. Initialize PSTDBPCB, PSTDGU, and 
PSTDGN. 


. At end of file, go to step 7. 


. The log record is placed in a work area 
(READAREA) whose address 
DLZRDBCO obtains via a V-con. 


. The input log file is closed. If another 
log file exists, it is opened and process- 
ing continues with step 2. The message 
texts are found in DLZBACMO csect. 


PROCESS 


1. Read control cards and create log input 
specification table. 


2. Obtain DL/I control block addressability 


via GSCD call. Open log input for read 
backward. 


accept records for specified PSB. 


"> 3. Read and deblock DL/I log record. Only 
4. Terminate processing if termination ‘07’, 
scheduling ‘08’, or checkpoint ‘41’ record. 


5. Bypass if ‘50’ record and physical replace. 


6. Process all other records for this PSB. 


| pizrpeco | 


Process Log 
Record 


2-28.14 






If no error occurred, go to step 3. 


7. Write appropriate completion message. 


8. Return to DL/I to purge buffers and close 
Logout files and DMBs. 


Routine Label Extended Description 


Return to 


DLII 


OUTPUT 


Log tnput 
Specification 
Table 


a 


Log Record 





DLZBACKO 


Routine 


SYSLOG 


Label 


Wal] Jo 4y10d01g—]eLa3eyA] posussry 


8s1-Z 


Z SWUINJOA ‘JenuRP 807 SA/SOd 1/14 


Figure 2-28.1. Process Log Record (DLZRDBCO) Figure 2-28.2. Simple HISAM Backout (DLZRDBCO) 


INPUT cme PROCESS OUTPUT (NPUT PROCESS OUTPUT 
From Fig. 
2-28.1 
Step 3 


1. Initialize dummy DSG and PST fields and 


open DMB if not open. i =. 
(mp (= ow patent — PT 1 Neato ay ot urd nd ig 
Open/Close | ¥ ° : 
oe : 
PST 
PSTDSGA }- > 2. If physical delete and key not found, Buffer Pool 
Buffer Pool 2. Read data base record containing segment area | get buffer space and move old data. 
cecuame | 
oe 
| maa 
DB Buffer | Handler 
Handler x 
2-15 
| —-p 3. If physical delete and key found; 
3. If simple HISAM, go to Figure 2-28.2 to | set buffer handler function to add 
1 
i 
L 







new key (PSTPUTKY), and 
back out log record. replace data in buffer. 
4. If HISAM or INDEX, go to Figure 2-28.3 


to back out log record. - > 4. If physical insert and key found, set 


buffer handler function to erase key 


5. If HD data base, go to Figure 2-28.4 to (PSTERASE). . 


back out log record. 
— > 5. If physical replace and key found, Buffer Pool 


replace data in buffer with old data. 


— — 6. Log action as physical delete if key 
not found and log record is physical 
insert. 


Logout 


6. Log data base change. 





OLZROBLO 


DB Logger 
2-16 


7. Write data base record. _ 
DLZBACKO — Simple HISAM Backout Utility DLZBACKO 


= 






To Fig. 2-28.1 
Step 4 












(eam) [5.258400 | Data Gas 
DB Buffer Extended Description Routine Labet Extended Description Routine Label 
Handler 
7 2-15 
1. The address of the log record is input 
to this routine. 
2 
To Fig. 2-28 
DLZBACKO ~ Data Base Backout Utility Step 6 DLZBACKO 4 
Extended Description Routine Labe! Extended Description Routine Label 5 
1. 6 SHISNREC 


"2. The following calls were made to the 
buffer handler: 


. If HISAM KSDS, issue PSTSTLEQ 
cal 


. If HISAM ESDS, issue PSTBYLCT 
call. 


. If HD ESDS, issue PSTBKLCT 
call. 





6. Output log records contain the ‘opposite’ 
function to which was on the input log. 





7. The return code is checked and appro- 
priate action is taken depending on the 
call and retum code. 
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Figure 2-28.3. HISAM or INDEX Backout (DLZRDBCO) 


INPUT 


From Fig. 
2-28.1. 


Step 4 


Log Record — cae § 


= 
Log Record 


DLZBACKO — Data Base Backout Utility 


Extended Description 


. If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed. 


. Chain maintenance log records for 
KSDS effectively back out physical 
insert to ESDS. 


. If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed in the log record. 


Routine Label 


PROCESS 


. If physical insert for KSDS, 


mark segment in buffer logically 
deleted. 


. Bypass physical insert for 
ESDS. 


. If physical replace, replace 


data in buffer with old data. 


. If logical delete, reset delete 


code. 


. No action if key not found and 


not insert. 


. If key not found and insert, log 


changes as replace with logical 
delete flag on. 


. If chain maintenance, replace 


data in buffer with old chain value. 


Extended Description 


OUTPUT 


Buffer Pool 


changed 
delete byte 


Buffer Pool 


changed 
segment 


Buffer Pool 


changed 
delete byte 


To Fig. 2-28.1 
Step § 


DLZBACKO 


Routine 


Label 


Figure 2-28.4. HD Backout (DLZRDBCO) 
INPUT 
From Fig. 
2-28.1. 
Step 5 


input Log 
Record 


DLZBACKO — Data Base Backout Utility 


Extended Description 





PROCESS 


1. 1f chain maintenance record, 
move old chain pointer to 
buffer. Make new log code = 
physical replace. 


2. If physical delete, make new log 
code = physical insert. Obtain this 
space again and update FSEs. Re- 
place information in buffer with 


old data. 
EE 


HD Space 
Management 
2-13 





3. For physical replace, replace 
data in buffer with old data. 


4, For physical insert, free space in 
buffer. Make log code = physical 
delete. 


5. For counter maintenance, the 
counter is adjusted by the 
amount specified in the 
adjustment field. 


Routine Label 


HDFISRT 
HDNISRT 
HDUISRT 


CTRMAIN 


Extended Description 






To Fig. 2-28.1 
Step 6 


OUTPUT 


Buffer Pool 


updated 
segment 


Output Log 
Record 


DLZBACKO 


Routine 









Label 
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Figure 2-29. HS DB Untoad 


1. Read and validate control statement. 
Write the following messages as needed: 


DLZ302I - Column 1 not R 

DLZ3031 - Column 2 not | or 2 

DLZ304I - DBD name not specified 

DLZ307I - Input filename not specified 

DLZ308I - Output filename not specified 

DLZ309I - Error(s) found in control 
statement 

DLZ310I - Image of erroneous control 
statement 

DLZ334I - Column 3 not N, R, U, or 
blank 


. DLZDVCE macro obtains data from PUB. 
Device type may be TAPE or DASD. 


. Issue GENCB for ACB, RPL, and EXLST. 
Open KSDS and ESDS unless 
ACCESS = SHISAM (KSDS only). 


. Processing as follows: 


A. Read KSDS records in key sequence, 
bypass if deleted, ESDS records 
containing overflow dependent 
segments are read by RBA. 


. Format work area like KSDS record 
with new attributes. 





INPUT From DOS/vg™ PROCESS OUTPUT 
JCL 
aa 1, Read control card and validate contents. 
SYSIPT 2. Initialize short segment and statistics 
tables. 
3. Determine device type for each output 
file specified. 
DBD 4. Load DBD and obtain physical character- 
r=" istics of data base as it will be reloaded. 
eo 
5. Generate VSAM control blocks and open 
data sets. 
6. Read records in key sequence, remove 
; deleted segments, and write newly sYso11 
formatted KSDS and ESDS type records (SYS012) - 
Data Base to output. 
7. Write statistics and close all files. 
SYSLST 
Return to 
DOS/VS JCL 
DLZURULO — HISAM Reorganization Unload Utility OBLZURULO 
Extended Description Routine Label Extended Description Routine Label 


6. (con’t) 


C. Move as many segments as will fit into 
KSDS work area, bypassing deleted 
segments. Calculate overflow RBA. 
Write image of KSDS to output: 


. Format work area like ESDS record 
with new attributes. 


. Move any dependent seginents as will 
fit into ESDS work area, bypassing 
deleted segments. Calculate RBA for 
next record, if required. Write image 
of ESDS to output. 


7. Statistics also written to SYSO11 to be 
used for comparative purposes during 
reload. Processing will continue if addi- 
tional input cards. 


Figure 2-30. HS DB Reload 
INPUT From DOS/VS| 


SYS!IPT 


SYSO11 


DLZURRLO — HISAM Reorganization Retoad Utility 


Extended Description 


. Read and validate control statement. 
Write the following messages as needed: 


DLZ302I - Column 1 not L 

DLZ307I - Input filename not specified 

DLZ309I - Error(s) found in control 
statement 

DLZ3101 - Image of erroneous control 
statement 

DLZ344I - Column 3 not N, R, U, or 
blank 


. DLZDVCE macro obtains data from 
PUB. Device may be TAPE or DASD. 


. The first record on the input file 
contains a statistics table initialized 
to zero. Included is the segment code 
and length for all segment types in the 
data base. 


. Issue GENCB for ACB, RPL, and 
EXLST. Open KSDS and ESDS unless 
ACCESS = SHISAM (KSDS only). 


. KSDS image records written to KSDS 
as key sequence records. ESDS image 
records written to ESDS as address 
sequence records. 





PROCESS 


1. Read contro! card and validate 
contents. 


2. Determine device type for input 
file. 


3. Initialize statistics table. 


4, Generate VSAM control blocks 
and open data set. 


5. Read records from input and 
write to data base. 


6. Print comparative statistics. 


Route Label Extended Description 


OUTPUT 
Data Base 
SYSLST 
Return to 
bOs/vs 
DLZURRLO 


Routine Labe! 
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Figure 2-31. HD DB Unload (Part 1 of 5) 


INPUT PROCESS OUTPUT 
From 
Figure SYSLST 
SYSIPT 


1. Read control statement and validate 
contents. 


2. Obtain DL/I control block 
addressability via GSCD call. 


CALL Macro 
ax} 


3. Establish addressibility. 


Caller 
SCDADOR Registers 


PCBADDR 


PSBADDR 


eee | 


4. OPEN the printer and print the 
statistics report header. 


INDA 
5. Determine device type for each 
output data set specified. 


DLZDVCE FNAME=RESTART Macro 


| 


DLZDVCE FNAME=HOUNLD1 Macro 


(exes DLZDVCE FNAME=HDUNLD2 Macro 


6. Acquire storage for and 
initialize statistics table. 


==> GETVIS Macro STATSIZE 
[oN ouzustar 


TABBUF 


JCB 
osinoc fa cows) 


a ee 


SDBPHYCD 
SDBTFLG 





DLZURGUO — HD Reorganization Unload CSECT OLZURGUO 
Extended Description Routine Extended Description Routine Label 


Write the following messages, as 
needed: 


If HDUNLD1 is IGN or UA, write 
DLZ3111 followed by DLZ3471, 
and then terminate. 


If HDUNLD? is IGN or UA, write 
DLZ345I and continue processing. 


DLZ3291 CHKPT parameter 
invalid 

DLZ3591 Error - Not REW= or 
CHKP= 

DLZ368I Error - Not an N, R, or U 


DLZ386lI Error - Duplicate 
control card 


.- Indicate to DL/I Retrieve that HD 
UNLOAD is running by setting 
the indicator (ICBHDULD) at 
JCBINDC. 

Module identifier (DLZURGUOvmp) | DLZURGUO 


is defined here. Macro DLZUSTAT contains the DSECT 


defining the format of a statistics 
table entry. : 


The GSCD call returns the SCD 
address +X‘60’ and the PST 
address in the call parameter I/O 
area (SCDADDR). 


The PCB address is passed to this 
module in Ri and stored at 
PCBADDR for later use. 


The table contains the segment code 
and length for all segment types in 
the data base. 


If restarting, set the restart in 
process indicator on at INDA. 











Figure 2-31. HD DB Unload (Part 2 of 5) 
INPUT PROCESS OUTPUT 


DB 
BADDR —_— 
ppIR 


AVRGREC RECADDR 


7. Acquire storage for a buffer 
to hold the unload record with 
the largest segment. 


fare} GETVIS Macro 


8 Open output data set(s). 


== OPEN Macro 





DMB 
SEC 


DMBSFD 





INDA | = Se 9. If not restarting, go to 


ead sep 13 


———— > 10. Ask operator for checkpoint LOGRESP 
restart number. 


= OPEN Macro 
a= PUT SYSLOG Macro 
== GET SYSLOG Macro 


> ‘11. Copy records including 
DLZCKPT checkpoint records to output 


until the checkpoint record to 





start from is found. 






Sen Mere ; HDUNLD1 
HDUNLD2 
LOGRESP RESTART ¢amah PUT Macro 
DLZURGUO — HD Reorganization Unload CSECT DLZURGUO 


Extended Description Routine Label 





Extended Description Routine 





- Macro DLZURGUF contains the DSECT 
defining the format of an unload record. 


. Open the RESTART file and write 
message DLZ318A to SYSLOG 
requesting restart number and read 
response. 


- Macro DLZCKPT contains the DSECT 
defining the format of a checkpoint 
record. 


Write message DLZ3151 if end-of-file 
is reached on the restart data set 
without finding the requested check- 
point record. 
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Figure 2-31. HD DB Unload (Part 3 of 5) 


INPUT PROCESS OUTPUT 
12. Get ready to position the 
Receoee data bean: to the segment SUCALST 
identified in the requested A (Gu) 
| RCHKPOSC | checkpoint record. A {PCB} 
PCBADDR 
 ommeomae 


|. fA (RECADDR) 





13. Position the data base (GU cail). 
CALL Macro 
PASMTDLI | 
= 


14, Get ready for unqualified 
GN calls. 





DLZURGUF —_RECADDR 





A (PCB) RGUHDRLN 





15. Issue GN for segments and 
check return code. Go to 
step 21 if end of input data. 


LA (iosea) | 


CALL Macro 


(umm) Paswrou 





16.. Fill in the remaining fields 


of the unload record. 
DLZURGUF 





DLZURGUO — HD Reorganization Untoad CSECT DLZURGUO 


Extended Descripti Routine Label Extended Descripti Routine Label 








12. If the RBN is available in the check- IRESTRT4 RECREATE 
point record, the SSA will be 
“segname*T (rbn)” (HDAM or 


HIDAM). 


If the RBN is not available, a qualified 
key call is required. The GETVIS 
macro is used to get a work area to 
build the SSA for the call. The SSA 
will be “segname*C (key)”. Following 
the call, the work area is freed. 


14. IOSEG is the beginning of the variable 
length data field following the DL/I 
prefix information of the unload 
record. 


. Write the following messages as 
needed: 


DLZ3011 — Open error 
DLZ348I_ - Unexpected retum 
code 


DLZ3491_ — I/Oerror 


. Write the following messages as 
needed: . Write message DLZ400I for a sequence 


error. 


DLZ3011_ ~— Open failure 
DLZ348I_ — Unexpected status 
from return code 
DLZ3491_ — Input I/O error 
DLZ3781 — Restart successful 
DLZ3791 — Restart failed 
DLZ380I1_ — Segment not found 





Figure 2-31. HD DB Unload (Part 4 of 5) 
INPUT PROCESS 


DLZURGUF 


[> __17. Update statistics table. 
Ld 


it 
. 
a 





DLZURGUF_ _RECADDR 


fF—j-—4 


18. Write the unload record. 


=a PUT Macro 


19. Build a checkpoint record 
if required. Otherwise, 
return to step 13. 


DLZURGUF PCB 





| DBPCBMKL | 
OLZCKPT RECADOR 


-—jC—— 





20. Write a checkpoint record. 


Gas PUT Macro 


21. Return to step 13. 


22. Update the statistics for the 
last root segment. 


23. Write the last block of 
unload records, 


=a PUT Macro 


DLZURGUO — HD Reorganization Unioad CSECT 


Extended Description Routine Label Extended Descrip 





.. The records are moved to the output 
block. When the block of records is 
full, the block is written. 


. Checkpoint records are written at the 
first root segment after every 5000 
segments. 


. Write message DLZ3811 every time 
a checkpoint is taken. 


tion 





OUTPUT 


OLZUSTAT 









HDOUNLD1 
HDUNLD6 


DLZCKPT 


HOUNLD1 
HDUNLD6 


DLZUSTAT 







HDUNLD1 
HDUNLO2 


DLZURGUO 


Routine 


Label 
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Figure 2-31. HD DB Unload (Part 5 of 5) 
INPUT 


aes 


DLZUSTAT. 







eae | S| 





= = 
TABBUF RECADDR 
STATSIZE AVRGREC 


Celter 
Registers 


DLZURGUO — HD Reorganization Unload CSECT 


Extended Descripti 


. Write message DLZ3521 (no errors 
detected). 


. Write message DLZ3921I for 
FREEVIS error. 





PROCESS OUTPUT 


24. Write statistics table record. 







HOUNLD1 
HDUNLD2 


25. Close output files. 


(mm CLOSE Macro 
(au) CLOSE Macro 


26. Edit and print statistics 
report and volume information. 


27. Free table buffer and segment 


buffer. 
(= FREEVIS Macro 
j—_ FREEVIS Macro 


28. Close the printer. 


= CLOSE Macro 


29. Return to DL/I. 


To 
Figure 
2-3.4 


DLZURGUO 


Extended Description Routine 








Label 
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Figure 2-32. HD DB Reload (Part 1 of 6) 





INPUT PROCESS OUTPUT 
From 
Figure 
23.4 
SYSIPT 
-——~—————> 1. Read control statement and validate 
contents. 
an 2. Obtain DL/I control block 
GSCDPARM Rt '_ addressability via GSCD call and 
initialize. 
3. Open the printer. 
OPEN Macro 
4. Determine device type for input file 


V/ 


ena 7. 
SYSLOG 


DLZURGLO - HD DB Reload 


Extended Description Routine Labei 


1, Write the following messages, as 
needed: 


DLZ351I Error - Not REW 
DLZ368I Error - Not an N, R, or U 
DLZ386I Error - Duplicate control 
card 


2. Module identifier (DLZURGLOvmp) |DLZURGLO| DLZURGLO 
BEGIN 


is defined here 


The PCB address is passed to this 
module in Rl by DLZRRCOO and 
stored at PCBADDR for later use. 


The GSCD call returns to the SCD 
address +X‘60’ and the PST address 
in the call parameter I/O area 
(SCDADDR). 


Write DLZ3111 if HDUNLD1 is not 
assigned. 


Co : 
SCDADDR scD 6. 
aS | 


and open it. 


OLZDOVCE Macro 


ee OPEN Macro 


Read first record and check for 
a Statistics table. 


= GET Macro 


If not restarting, go to Stép 20. 


Get checkpoint restart number 


caller 
PCBADDR registers 
SCDADDR 
A(PST) 
1/O Buffer 
from operator. 


LOGRESP 
Gah vere eae 
(ah GET Macro 


DLZURGLO 
Extended Description Routine Label 


Issue DLZ3891 if abnormal 
statistic table record. 


STATINIT 


If the HD DB Reload Utility Program 
fails, the reload restart capability 
allows you to restart from a check- 
point record. Before submitting the 
job for a reload restart, change the 
parameter card from. ULU to ULR. 


Write DLZ318A message to SYSLOG 
requesting restart number and read 
response, 


The number of the last valid check- 
point record on the unloaded file 

is found in console message DLZ381I. 
Valid checkpoint numbers are decimal 
values between 1 and 9999. 





HDUNLD1 D K 


LOGRESP 


OLZCKPT 


[RCKSEGNM| 
| ACKEYVAL | 





GUCALST 


A (PCB) 


A (WRK1AREA) 
PCB 


OBPCBSTC 


GNLIST 





Figure 2-32. HD DB Reload (Part 2 of 6) 
INPUT 


5 5 
RGUSEGLV 


DATA BASE 


DATA BASE 


PCB 


DBPCBSTC ea Poe 


DLZURGLO— HD DB Retoad 


Extended Description 





8. Write DLZ3701 if the checkpoint 
requested is less than the first check- 
point record encountered. 


Write DLZ315I if checkpoint record 
not found. 


Write DLZ381I checkpoint informa- 
tion message. 


. The SSA for the GU call is ‘segname*C 
(key)’, a qualified key call. 


. The return code is checked. 


Write DLZ380I unable to position 
DB, checkpoint record not found. 


PROCESS OUTPUT 


8. Locate requested checkpoint 
record. 


== GET Macro 


9. Get ready to position the data 
base to the segment identified 
in the requested checkpoint 
record. 





10. Position data base (GU call). 
[= CALL Macro 
fasmTou 


11. Find end of data (GN call). R9 


CALL Macro 
ASMTDLI 


12. Hf the retum code indicates 
end of data, go to step 16. 


GUCALST 
Acca) | (PCB) 
jawssa) 


DLZURGLO 


Routine Label 


11. Now that the data base is positioned 
at the segment identified by the check- 
point record, issue GN calls to the end 
of the data base at the same time 
reading corresponding records from 
the unloaded data base in order to 
keep the two synchronized. 


. A counter for GN calls (R9) is 
incremented by one for every GN 
call following a root segment. 


Write DLZ380I unable to position 
DB if invalid return code. 





Routine 
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Figure 2-32. HD DB Reload (Part 3 of 6) 
INPUT 


PCB GUCALST 


[osecaxro asa IH-———p 13 


SSA 





PCB 
DBPCBKFD 14. 
15. 
HDUNLD1 


DLZURGUF DLZCKPT 


> 16. 


17. 


A (WRK1AREA) 
DATA BASE 





DLZURGLO — HD DB Reload 


Extended Description 


. Reset the counter for GN calls (R9) 
to zero. 


. If the record retumed from the 
unloaded data base is a checkpoint 
record, return to step 14 to get the 
next record in order to keep the 
partially reloaded data base and 
the input unloaded data base 
synchronized. 


Issue DLZ3811 checkpoint informa- 
tion message. 


PROCESS 


. If the segment returned is not 


Figure 2-32. HD DB Reload (Part 4 of 6) 
PROCESS 


OUTPUT INPUT 


a root segment, skip to step 14. 


OLZURGUF 


RGUSEGLV] 9 


GUCALST R9 


| 


Put the new root segment key in 
the parameter list of the GU 
call and return to step 10. 


SCDADDR 


ScD 
DSEHADDS 
AOPENWRK 


| AWRKDSEH | ASTFILE 
AWORKFIL 


Read corresponding record from 
untoaded data base. 


== GET Macro 





Return to step 10 to get the 


next segment. PSTADDR RSTSAVE 


AST 


PCBADDR PST 
A {PCB} PSTPCT1 


Position data base to last root 
segment (GU call). 


(== CALL Macro PCB sDB 
JCB 
DLZURGLO 
Routine Label Extended Description Routine Label 


DLZURGLO — HD DB Reload 


18. Save the segment code of the last 
segment. The number of GN calls 
to make to get to the last segment 
is in R9. 


. If a work file (for logical relationships 
or secondary indices) was being 
created during the reload, the 
partially created work file should be 
submitted as input to the restarted 
job assigned as SYSO10 with a file 
name of RSTFILE. 


Write DLZ376I invalid device 
assignment. 


. Now that Reload Restart processing 
is complete, -set the processing 
options to indicate that a load is in 
process. Then resume processing as 
usual. 


If HISAM, set LS in the PCB. 
Otherwise, set L. 








OUTPUT 


18. Position data base to the last 
segment (GN calls). 


fasmTout | 


se 





19. If a work file is present, 
copy partially created work 
file into new. 

WORKFIL 


Wa] Jo Ayssdorg—yenio}eyy] posuasry 


OPEN RSTFILE Macro 


DLZDSEHO 
Work file 
BALR generator 


I 


GET Macro 


PUT Macro 


CLOSE Macro 


tT 


Save the address of the SDB for 
insert processing if it is for the last 
segment found in JCBSTOR3. 


20. Reset processing options. PCB 


DBPCBPRO 


JCB 


[bcsstors J 


SDB 





DLZURGLO 


Routine Label 
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Figure 2-32. HD DB Reload (Part 5 of 6) 









INPUT PROCESS 
21. Read an unload record. If 
end of file, go to step 21. 
HOUNLD1 
(eam GET Macro 
DLZUAGUF 
22, Build SSA for segment. 
| RGUSEGNM | 





tOAREA 


CALLIST 
A ssa) 







23. Load segment (ASRT CALL). 


—— CALL Macro 


ASM 1 








24. Add the segment totals and 
return to step 20. 


DLZUSTAT DLZURGUF 


LRGUHSDF | 


a 


25. Print comparative statistics 
report if the record is the 
last statistics record. 


DLZCKPT 





noe ——— —— 26. Close the input file. 


=e) CLOSE Macro 


DLZURGLO — HD DB Reload 


xtended Descripti 


- IOAREA is the address of the data 
portion of the unload record 
DLZURGUF. 

. Write DLZ3011 OPEN error. 

Write DLZ3191 IO error. 


Write DLZ348I invalid return code. 


. Write DLZ355] if reload is not okay, 
or DLZ3791 if checkpoint restart 
is not okay. 


Write DLZ354I if reload is okay, or 
DLZ3781 if checkpoint restart is okay. 


If this was RESTART (ULR), reset 
the processing option in the PCB 
back to A. 





OUTPUT 


OLZURGUF 


Gl 


CALLIST 
FATASRT) | (ASRT) 


ja tssa) | 








= 


DATA BASE 


[J 


SYSLST 


PCB 


DLZURGLO 


Routine 





Figure 2-32. HD DB Reload (Part 6 of 6) 
(INPUT PROCESS OUTPUT 


27. Close the printer. 


GREED Lose macro 


Cailer 


registers 28. Return to DL/I. 
Figure 
2-3.4 
DLZURGLO ~ HD DB Reload DLZURGLO 


Extended Description Routine 


Extended Description Routine Label 


Label 
PRUN 
UMP 
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Figure 2-33. ACB Creation Utility Overview (Part 1 of 3) 
INPUT PROCESS 


From 
DOS/VS 


SCD PPST 


— [> 1, Load batch nucleus and establish 







SCD and PST addressability. 


LOAD Macro 


GETIME and 
COMRG Macros 


OPEN Macro 


Til 


2. Acquire and initialize the 
psbname list control block. 


CALL Macro 


DLZUSCHO 


OPENSRCH entry 
point 


J 









2-33.1 


3. Read build cards until EOF. 









(a=) GET Macro 
Build Cards 
4, Syntax check the build cards. 
BLDLCBAD — ++ — —- PP 5. Add valid psbnames to the list 
la 
INSRCH entry 
BALR point 2-331 
step 4 
OLZUACBO — Create ACB Utility Csect 
Extended Description Routine Label 


1. Module identifier (DLZUACBOvinp) is JDLZUACBO | DLZUACBO 

defined here. The level format is vip; 

where ‘v’ is the version, ‘r’ is the 

release, ‘n’ is an additional identifica- 

tion number, and ‘p’ is the latest 

PTF number that has been applied. SYSPCH). 
The time and date are required for the 
report heading to DLZUACBO 
messages and control statements that 
are printed as this utility executes. 


the PST. 


. The parameter list for OPENSRCH 


is passed in R1. 


OPENSRCH returns the address of the 
list control block in R1, which is then 
put in the parameter list for INSRCH. 


passed in R1. 


Write DLZ905] if GETVIS error 
returned from OPENSRCH. 


4. Write DLZ588I for an invalid 
delimeter, label, opcode, block 
type, operand, continuation, or 
invalid format. The output device 
is set at this time (SYSLINK or 


. The psbnames from the PSB= 
operand are passed one at a time 
to INSRCH. 


The parameter list for INSRCH is 


Write DLZ9051 if GETVIS error 
retumed from INSRCH or DLZ5711 
warning message if a duplicate 
psbname is found. 


OUTPUT 


Partition 


PST 


PSTSCDAD 


Ri 


List 
lentry length 


offset to 
compare field 


length of 
compare field 





PST 
iPSTCODE1 





If OUT=LINK was specified in the 
build card, SYSLNK is indicated in 








Figure 2-33. ACB Creation Utility Overview (Part 2 of 3) 
PROCESS 


INPUT 


PST —_——_—— — — —_—— 


PSTCODE1 


BLDLCBAD 


PST sco 


PSTSCDAD SCDDLIPS 
SCHCTLBK 
SCHFGRP 





SCHGROUP BLDDLTEN 


SCHGRPCT | [ENTRYNM 


BLODLTEN 


IENTRYNM _| 


PST SCHGROUP 


DLZUACBO — Create ACB Utility Csect 


Extended Description 


. PSTERCOD is examined to see if any 
errors were posted by the Block 
Builder. If not zero, issue message 
DLZ587I to indicate the PSB will not 
be built and go to step 10 to attempt 
to build remaining blocks. 


. The completion message is normal 
unless a non-zero return code 
is found from DLZDLBLO. 


Write DLZS891 to indicate processing 
has been completed for the PSB 
specified. 


6. 


7. 


8. 
9. 


10. 





Check that SYSPCH or SYSLNK is 
assigned and open the device. 


Set up to cycle the psbname 
build list entries, getting 
psbnames to give to the Block 
Builder. 


Move a psbname from a build list 
entry to the PDIR and go to 
build and write blocks. 


jam [ouzpisto sd” LZDLBLO 


BALR Block Builder 
Routine 
2. 








Write completion message. 


(ean) DLZLBLMO 


BALR Message Writer 
» 2-33.15 


Return to step 8 for next 
build list entry until there 
are no more psbnames. 





OUTPUT 


PST 


PSTPSB 
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PDIR Rt 


DLZUACBO 


Routine Label 
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Figure 2-33. ACB Creation Utility Overview (Part 3 of 3) 
INPUT PROCESS 


> 10. Return to step 8 for each build 
= sone list entry until there are no 
jsp deol 
11. Free the psbname list contro! 
block. 


12. Close files and exit. 


fem) co 


DLZUACBO — Create ACB Utility Csact 


Extended Description 





Return to 
OOv/vs 


OUTPUT 


| A (List contro! bik) | (List contro! blk) 


DOLZUACBO 
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Figure 2-33.1. Binary Search Insert Routine (Part 1 of 2) 
INPUT PROCESS 


From 
Fig. 2-33 
Step 2 


OPENSRCH Entry Point 


1. Acquire storage for the list 
control block, including one 
group control block. 


= GETVIS Macro 


> 2. Initialize the list and group 


SAVE 


SAVEBL 





control blocks. 
ENTBLK 
Caller 3. Return to caller. 


SAVE Registers 


ise —— f 


Figure 2-33 


Step 5 


INSRCH Entry Point 





4. If the psbname already has a 
build list, set R15=8, then 
go to step 7. 


icomproc | {craw | 





DLZUSCHO — ACB Maintenance Binary Search Insert Routine 


Extended Description Routine Label Extended Description 





1. Module identifier is defined here. DLZUSCHO |DLZUSCHO 
Length acquired is X‘80’ bytes. One 

group control block will hold 16 build 

list entries. 


. Block now contains information 
needed to build a group control 
block. The first (or orily) block is 
obtained before the first actual insert. 


. The address of the created block is 
returned to the caller. 


Note: This routine is very generalized 


and could be used for other purposes, 

but it is only used by DLZUACBO to 

pie the psbname build list control 
OCK. 


. Routine identifier (INSRCH. .) is 
defined here. 


OUTPUT 


Caller 
Registers 


ieee] 


SAVE 


















DELZUSCHO 


Routine Label 


Figure 2-33.1. Binary Search Insert Routine (Part 2 of 2) 
INPUT PROCESS 


ENTBLK SAVE —-——-—fp 5. If no room for new build list 


entry, issue GETVIS for a new 
group control block, chaining it 
to any previous blocks. 


== GETVIS Macro 





—__ 


6. Insert new entry in collating 





ENTS AV 

areas 

fenrerker_} [NumenT | 

SAVE Calter 7, Return to caller with return 
code in R15. 


— 


Figure 2-33 
Step 11 


CLOSESCH Entry Point 


> 8. Free all group contro! blocks 
and then the list control block. 


——) FREEVIS Macro 


FREEVIS Macro 





Calter 9. Return to cailer. 


Extended Description Routine Label Extended Description 








5. There is enough room for 16 entries 
in a group control block. 


. Routine identifier (CLOSESCH) is ICLOSESCH |CLOSESCH 
defined here. All group control blocks 
can be found beginning from the list 


control block. 





OUTPUT 





ENTBLK 


Sant 


SAVE 


; 
[scary J] [rca —] 


Caller 
Registers 


a Figure 2-33 


Step 71 


Routine Label 
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Figure 2-33.2. Block Builder Routine 1 
INPUT 


From Figure 
2-33 Step 8 
PSB 
PDIR 
Ps 


PSBDBREF |-—-—- —— 





PCB 


Ea 


PSB 


PSBSGTAB |— — —— _—_— 


OLZOLBLO -- Block Builder Routine 1 


| Extended Description : 


6. Only those SDBs for segments directly 
referenced by SENFLDs are built at this 
time. Generated SDBs will be built in 


DLZDLBLI. 


PROCESS 


1. Acquire storage for PSB specified, 
load, and convert it. 


LOADPSB 


2. Build temporary DDIR entries for alt 
data bases directly identified in the PSB. 


é BLDDDIR 


3. Calculate and acquire storage needed 
for SDBs, etc. 


GSDBSTR 


as | | 


4, Point to first PCB to be built. 


5. Initialize PCB. 


6. Build SDBs for PCB. 


BLDSDB 


7. Loop to step 5 through all PCBs for PSB. 


Routine Label Extended Description 





OUTPUT 


DDIR Temp 





PCB 


SDB 


l 


To Figure 
2-33.3 
DLZDLBLO 


Routine Label 


Figure 2-33.3. Block Builder Routine 2 


INPUT From Figure 
2-33.2 

DUMODIRB 

DDIR 

[—)----} + 
L 

EXTDBD 

SEGTAB 


LCHILD 


SORTAB INDEXTAB 


COMPRESSION CSECT 





SEGTAB 





* DLZDLBL1 — Block Builder Routine 2 


BI 


Extended Description 


. The DBD address is reset from the DMB 
Name Table. 


. Any DBDs referenced by this DBD are 
added to the dummy DDIR list. 


. A. If the DBD is for an index data base, 
the DDIR entry for the target data 
base is located and processed first. 


B. No DMB is built for logical DBDs. 


. A. SDBs pointing to VLC or logical 
segments are reset to point to the 
physical segment PSDB. 


B. All generated SDBs are built here. 


. If additional SDBs were chained to a 
prior DDIR during step 5, return to that 
DDIR, and go to step 2. 


PROCESS 


1. Get first temporary DDIR address. 


2. If DMB already built for DDIR entry, go 
to step 5. 


3. Load the DBD. 


LOAODBD 


4. Build the DMB. 


, 


5. If any unprocessed SDBs exist for this 
DDIR entry, process them. 


BLOSDB 


6. If any DDIRs remain to be processed, get 
next and go to step 2. 


To Figure 
2-33.6 


Routine Label Extended Description 





OUTPUT 


DBD 


a 


DTABDMB 


a 


hil 


COMPRESSION CSECT 


3 


a 


I 


> 


! 


is] 


j 


i 


DLZOLBL1 


Routine 





Label 
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Figure 2-33.4. Block Builder BLDDMB Routine 
INPUT PROCESS OUTPUT 
From Catler 


PREFIX SEGTAB OMB 


1. Get and initialize storage for DMB. a 


oS 


FLOTAB EXTDBD 


PREFIX SEGTAB 
2. Build PSDBs, FDBs, Secondary Lists, and 


i 
FLDTAB LeHiLD Compression CSECTs for each segment. 
omen) eres 
aie <2) a ere 

i 

Pree 


COMPRESSION CSECT 


COMPRESSION CSECT 
Foe 


aes | ea 


SCKL 


3. Process enqueued Secondary Lists; build 
segment concatenated key table; and 
initialize subsequence source, or search 
secondary lists. 


FLDTAB PSDB 


SEC INDEXTAB 


BLDTBL 


aa ee 





i=" 
[ 


4, Move in DTF(s) or ACB. ee 


eT 


Return to 
Caller 


DLZOLBL1 — Block Builder Routine 2 OLZDiB11 





Extended Description Extended Description Routine Label 


2. Until the concatenated key table is built, 
all secondary lists are enqueued on the 
DDIR and will be built during step 3. 
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Figure 2-33.5. Block Builder BLDSDB Routine (Part 1 of 2) 
INPUT From Caller PROCESS 


RE 1. If no more SDBs, return to caller. 


2. Find matching physical segment table 
entry. 


3. If segment has source, repoint SDB to 
new PSDB. Go to step 1. 


ee [o— 


4. If segment is a logical child, build 
generated SDB chain. 


5. If SDB is a generated SDB for a logical 
parent or the target of an alternate 
sequence index, and no generated parent 
chain exists, build one. 


GENPARA 


6. Set ACB number, physical segment 
PSDB code, key field tength, PSDB address, 
and next SDB to PSDB address. 


SORTAB DDIR 


SEGTAB SOB 


OLZDLBL1 — Block Builder Routine 2 


Extended Description Routine Label Extended Description 


. Output message DLZ9121 if not 
found. 


. If source is in another DBD, the SDB 
to be processed is the next one for 
this DBD. Otherwise, process the 
original with the new segment name. 


. If segment is a normal logical child, BLDSDB7 
the logical parent SDB is generated 
and flagged to cause generation of 
the parent chain when the LP is 
processed. All generated SDBs are 
chained to the DDIRs for the related 
data bases. 





OUTPUT 


SOB 


L 


ODIR 


wan 


DB 


PSDB 


iil 


DLZDLBLt 


Routine 


Label 





Figure 2-33.5. Block Builder BLOSOB Routine (Part 2 of 2) 


INPUT PROCESS OUTPUT 
7. Vf SDB is not the root for an alternate 
sequence, go to step 11. 
8. Generate SDB for index. 
C 
ws (=) ee | 
Hie acan'| 9. Generate SDB for target of index and sdB 
flag to indicate parent chain is to be 


generated. 


10. Go to step 1 and process SDB generated 
in step 9. 


il 


11. If SDB is not for HIDAM root, go to 


step 13. 
12. Generate SDB for primary index. SDB 
Rt 13. Point to next SDB for DDIR, and go RG 
[}----4--- 9 wie -+----p 
DLZDLBL1 — Block Builder Routine 2 DLZDLBL1 
Extended Description Routine Labei Extended Description Routine Label 


BLDSDBF 


BLDSDBG 
BLDSDBI 
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Figure 2-33.6. Block Builder Routine 3 (Part 1 of 2) 


INPUT 
From Figure 
2-33.3 


DDIR 


OLZDLBL2 — Block Builder Routine 3 


Extended Description 


. The SDB expansion and FSBs for any 
field level sensitivity are built here. The 
parentage flags in the SDB are set, the 
Intent List entry is built, and any 
propagation is done. The index SDB, if 
any, is initialized. 


. Space is allocated for the PCB, JCB, key 
feedback area, DSG, and Level Table. 











PROCESS OUTPUT 
a List 
1. Calculate size of intent List and 
obtain space. i= 
3. Process SDBs for PCB. SDB 
Ld c—4 
= SDBXP 
= 
Intent List 
4. Check for valid hierarchical structure. See 
aa 
FERT 
5. Relocate pointers in FERT tables. 
4 a: 


6. Get space and move PCB. DCB 


i == 


DLZDLBL2 


Extended Description Routine 





Figure 2-33.6. Block Buitder Routine 3 (Part 2 of 2) 
INPUT PROCESS 


7. Build Level Tables. 


BLDLEV 


vz aa 


OSG 
[_] ical | —_____ -® 8. Build DSGs and set key feedback pointers. 


je =| 
SEC aot ced 





ee 


9. Calculate maximum path length for PCB. 


of) coaaees 


10. If more PCBs, address next and go to 
step 2. 


DLZDLBL2 — Block Builder Routine 3 


Extended Description Routine Extended Description 


OUTPUT 


SDB 


DLZDLBL2 


Routine 


LIL 
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Figure 2-33.7. Block Builder BLDSDB Routine 


INPUT 
FSB FOB 
PSDB 


PROCESS 


1. If segment is field sensitive, build SDB 
expansion and FSBs. 


my 





ss) 
—) 





2. Set SDB parentage flags. 
— 
3. Calculate maximums for save area 
sizes. 
| 


4. Build intent list entry. 


; INTPROP 


5. Fill in any generated index SDB. 


mmm) 


SDB 
[ EF 6. If any target SDBs, get first and go to 
step 1. 
OLZDLBL2 — Block Builder Routine 3 
* Extended Description Routine Label Extended Description 


. Maximums set are: 
a. Maximum segment length in 

either physical or user’s view. 

. Maximum concatenated key 
length. 

. Maximum concatenated segment 
length. 

. Longest segment at this level and 
path sensitive. 


. Output message DLZ9091 if 
PROCOPT changed. 

. All intent propagation is done 
here. 


. Fill in the generated index SDB for 
HIDAM primary indexes or alternate 
sequence. 





OUTPUT 


SDBXP 


n 


‘SB 


I 


soB 


i 


Intent List 


ca) 


SDB DDIR 
Return to 
Caller 
DLZDLBL2 
Routine Label 
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Figure 2-33.8. Block Builder Routine 4 (Part 1 of 2) Figure 2-33.8. Block Builder Routine 4 (Part 2 of 2) : 
INPUT From Figure PROCESS OUTPUT INPUT PROCESS OUTPUT 


DTADMB 


8. Search DMBNAME table for DMB that 
needs a utility PSB. Go to Step 11 if 
none. 


9. Build utility PSB. 
— 
10. Go to PSBPASS in module DLZDLBLO 


(Step 1., Figure 2-33.2) to process utility 
PSB just built. 


Po =a 1. Build index maintenance PCB if required. 
=a 


2. Calculate sizes of work areas. 





3. Set SDB Expansion for alternate 
sequence. 


11. Free DBD storage. 


12. Return. To Figure 
2:33 Step 9 


4. Validate VLC LT sequence field 
location. 


CVSFNPP 


5. Process and output DMBs. 


fy fo 


6. Process and output PSB. 


(mn) 
2-33.13 


7. Free PSB storage. 


DLZDLBL3 —~ Block Builder Routine 4 OLZOLBL3 DLZDLBL3 — Block Builder Routine 4 DLZDL8L3 





Extended Description Routine Label Extended Description Routine Label - Extended Description Routine Label Extended Description Routine Label 


lL. 

8. Utility PSB is built for every HISAM, 
HIDAM, HDAM, and secondary 
index DMB just outputted. 


2. Index work area, Index I/O area, 
segment compression work area, and 
1/O work area 

. The dmbname is moved to the 

psbname location and a suffix ‘u 
added. The no utility PSB required 
indicator is turned on at DTABFLAG 
so we don’t try to build another 
utility PSB for this DBD the next 
time around. Return to Step 9 to 


DDIR2SC2 
PSBMOV 
FREEPSB 


build the PSB. The output of 
DLZDPSBO is like PSBGEN output. 


FREEDBD 


. PSTERLOD = 0 if OK and non-zero RETURN 
if not. 
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Figure 2-33.9. Acquire Storage Routine 


INPUT PROCESS 


From Calter 


fost — 1. Acquire storage. 
jamb GETVIS Macro 


=) 2. Chain storage acquired. 


3. Return to caller. 


OLZDLBLO — Batch Controi Block Builder CSECT 


1. Write message DLZ905SI if GETVIS GETSTOR. 
space is not available. 


2. If this is a storage request for a DBD, GETSTOR1 
the storage is chained off at 


ADDRDBD rather than ADDRC. 


To Caller 


DLZUACBO 


Routine 


(Ses 


Label 
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Figure 2-33.10. Intent Propagation Routine (Part 1 of 2) 
INPUT PROCESS 


| 
SDB 


> 1. Set read only or exclusive 
intent for entry SDB. 


SDBPSDB 


SDBTARG 


PSDB SEC 


DMBFLAG | | DMBSCDE 
DMBSECND 


2. Set update intent for entry SDB 
and its target if either is 
replace sensitive. 


SETNT 


Build PSIL 
Routine 
2-33.11 







> 3. Check for necessary intent 
propagation. Skip to Step 7 
if entry SDB is not ISRT/DLET 
sensitive. 


> 4. if ISRT sensitive, skip to 
Step 6. 


DLZDLBAO — Intent Propagation CSECT 


1. This routine propagates intent to all 
PSDBs related or dependent on the 
PSDB for the entry SDB. Only SDBs 
that are built directly from SENSEG 
statements in the associated PSB are 
passed to this routine. 


For a process option (PROCOPT) of 
G, the entry SDB and all targets are 
set to exclusive. For E PROCOPT, 
the entry SDB and its immediate 
target are checked for key sensitivity. 
If the SDB is data sensitive, the intent 
is set to exclusive. Otherwise, no 


intent is set. 





OUTPUT 


Caller 
SVBF3 Registers 


DLZUACBO 








Figure 2-33.10. Intent Propagation Routine (Part 2 of 2) 


INPUT 


as | 


LIMITAB 





ieee late 


Caller 
Rogisters 


DLZDLBAO — tntent Propagation CSECT 
Extended Description 


5. Any intent set will be update type. 
Storage is acquired for a limit table 
and is constructed with PSDB 
addresses. These addresses show 
children of the entry PSDB, any 
necessary higher related PSDBs, any 
index relationships, any logical 
children, the logical parent, physical 
parent, and physical pair of the entry 
PSDB. After the table is constructed, 
each entry is passed to SETNT to set 
update intent and the table area is 
freed. Exclusive intent is propagated 
along with delete. 


. Any intent set will-be update type. 
A limit table is constructed with 
addresses of those PSDBs that will 
be passed to SETNT. 


It is also determined if the entry SDB 
can insert its logical parent or physical 
parent as a result of a concatenated 
segment definition. If it can, the 
logical parent or physical parent is 
processed in the same manner as the 
entry PSDB. The physical pair is also 
processed if one exists. 


PROCESS OUTPUT 


5. Process the entry PSDB and all LIMITAB 
necessary related and dependent 
PSDBs for D PROCOPT. 


BALR 





> 6. Process the entry PSDB and all 
necessary related and dependent 
PSDBs for | PROCOPT. 


SETNT 


Build PSIL 
Routine 
2-33.11 







ema 


BALR 


7. Return to caller. R15 


Game) FREEVIS Macro 


To 
Figure 
2-33.7 
Step 4 
DLZUACBO 
Routine La Extended Description Routine Label 


After processing the LIMITAB 
entries built, the area is freed. 


7. Set the retum code and make sure 
all the limit tables are freed. 


bet 
A 
SRT 
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Figure 2-33.11. Build PSIL Routine 


me INPUT : PROCESS OUTPUT 





DOIR PSDB 


ENQLSTA 


SVBF3 SDI 


B 
[} [soeenveo Jt a, 


Rt R7 . 


DLZDLBAO - Build PSIL CSECT 


Extended Description Routine 


. Calculate the address of the beginning 


of the segment descriptor bits in the 
intent list area for this PSDB and the 
beginning of the intent list entry for 
this data base. 


Reset ‘GO’ PROCOPT switch intent 
list entry for data base, if necessary. 





Set the requested sensitivity for this 
PSDB. 


Return to caller. 


OLZUACBO 


Labei Extended Description Routine Label 


| DLZDLBAO | SETNT 
ENQI 
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Figure 2-33.12. Write DMBs (Part 1 of 2) 
INPUT 


From 
Figure 
2-33.8 
Step 5, 








DDIR OMB 
[ponsoon foe 
— 


ODIR DMB 
DDIRADDR DMBLENTB 
[porRAD DF 
OMBSECTB 
PSDB 


OMBVLOFG - 


COMPRES- 
SION 
SEC CSECTs 


DMBSCDE 
DMBXITAD XMT 
CSECTs 


SEC pon | 
OMBSECDB 

PSDB 

: DMBPSDB P 
DDIR DMB 

DDIRADDR 

ae 


SEC LIST 





















Oms _—— 


DLZUAMBO — Block Mover CSECT 


Extended Description 


- Process all DMBs referenced in DDIR 
entries unless already built or 
ICAL. 


Write message DLZ905! for GETVIS 
error. 


. The compression CSECTs and index 
maintenance CSECTs are moved to. the 
new DMB. 


Write message DLZ570I for an invalid 
SEC list code found in a DMB. 


. The reference list is the last part of 
the DMB. If the DMB is not in the 
list, it is added. Repeat this step for 
each SEC. 


. Any addresses which do not fall within 
the DMB are set to zero. 


PROCESS 


= 


6. If HSAM, include MTMOD or SDMOD 


Routine Label 


. Return to Step 2 to process the 


OUTPUT 


. Acquire storage for DMB and 


external reference tables. 


a= GETVIS Macro 


OMB SEC 
DMBDALGR | | DMBXITAD. 
Convert addresses which PSDB 


reference tocations within DMB 
to offsets from DMB start. 


OMB 
omesctas | | comp 
DMBLST CSECTs 


XMT 
CSECTs 


Change DDIR addresses in the DMB 
secondary lists to relative DMB Reference 


numbers as to where the DMB 
entry is in the DMB reference 
list. 


next PSDB if there is one. 


DMB 


DMB 
jenerix | | omanrer 


5. Move old DMB to new DMB. ACBEXT 
SEC LIST 
comP 
CSECTs 
XMT 
CSECTs 


for linkedit. 


DLZUACBO 


ended Description Routine Label 





DDIR2SC2 6. The names in the relocatable library 
of the required modules are 
DLZTAPE or DLZDISKI and 


DLZDISKO. 





Figure 2-33.12. Write DMBs (Part 2 of 2) 
INPUT PROCESS 







DOIR 


>| 7. Write DMB to SYSLNK or SYSPCH. 


OUTPUT 


DDIR 
— —P 8. Free the new DMB storage and 
return to Step 1 to process the 


next DDIR if there is one. 


== FREEVIS Macro 


9. Return to caller. 


DLZUAMBO — Block Mover CSECT 


DMBOUT3 


7. The same subroutine is used for the 
PSB also. 


8. Write message DLZ926I for a 
FREEVIS error. 


Extended Description 


OUTPUT 
SYSLNK SYSPCH 
To Figure 
2-33.8 
Step 5 
DLZUACBO 
Routine Label 
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Figure 2-33.13. Write PSB 
PROCESS OUTPUT 


1. Acquire storage for entire PSB. 


== GETVIS Macro 


Psi 
2. Move pieces of PSB to acquired IL 
storage. 





3. Convert addresses which 
reference locations within PSB 
to offsets from the correspond- 
ing PCB. 


” 4, Write intent list/PSB to 
SYSLNK or SYSPCH. fy (i. 





SYSLNK SYSPCH 
5. Free the new PSB storage. 
a FREEVIS Macro 
6. Return to caller. To Figure 
2-33,8 
Step 6 
OLZUAMBO — Block Mover CSECT DLZUACBO 
"Extended Deseripti Extended Description Routine Label 





1. The size calculation formula is 
PSBPST — PSBXIOWK — PSBSEGWK. 
— PSBNDXWK — PSBIOAWK + length 
of PSIL. 


. Write message DLZ905I for GETVIS 
error. 


4. 


5. Write message DLZ926I for 
FREEVIS error. 
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Figure 2-33.14. Build PSB (Part 1 of 2) 
INPUT 






From Figure 
2-33.8 
Step 9 


DBDGEN Control Block 


SEGTAB FLDOTAB 


DLZOPSBO — Utility PSB Generator CSECT 


Extended Descripti 


1. Routine identifier DLZDPSBO vrnp is 
defined here. A parameter list con- 
taining DBD address is passed in 
Register 1. The contents of this DBD 
are used to create the utility PSB. 


The PSBGEN size will be the fixed 
size plus the number of segments 
times the length of SENSEG entry. 


It is possible to have an invalid access 
method error to pass back to 
DLZDLBLO. 


. The result will be stored in PSB 
Prefix. 


. The area is also cleared to zeros. 
Write message DLZ905I for GETVIS 
error. 





Figure 2-33.14. Build PSB (Part 2 of 2) 
PROCESS OUTPUT (INPUT PROCESS 


4. Fill PSBGEN Prefix and PCB. 


5. Fill SENSEG entries. 


6. Move DBD name to DB Reference 
Table. 





Catler 
1. Establish addressability and Registers 


: aE 
calculate the required PSBGEN 
Jj Caller 


size. Registers | 


eee 7. Return. 


> 2. Using DBD, calculate required 
key feedback length and add to 


PSBGEN size. 
3. Acquire PSBGEN stor: LIST 
ee ei 
= GETVIS Macro 


PSBGEN 
Control 
Block 





DLZUACBO OLZDPSBO — Utility PSB Generator CSECT 


Extended Description Routine Label Extended Description i: Extended Description 





4. PROCOPT of ‘A’ is set in PCB for 
all DBDs except secondary index 
where ‘LS’ is set. The ‘A’ is changed 
to the proper ‘load’ by batch initializa- 
tion if necessary. 


. Same PROCOPT as in Note 4. 
. In addition, no SORTAB is indicated. 
7. The address of the built utility PSB 


is returned to the caller in the 
parameter list. 





To Figure 
2-33.8 
- Step 9 


OUTPUT 


PSBGEN 


PREFIX 
jospca 
lDBREFTAB | 


R1 


LIST 
fates) | (PSB) 


DLZUACBO 


Routine 


R15 


return 
code 





Label 
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Figure 2-33.15. Message Writer 
INPUT From Catter gp PROCESS 


This routine can be called by 
OLZAUCBO, DLZLBLMO, 
DLZUAMBO, or DLZDPSBO. 


Ri 


ee | 1. Find matching message 1D. 


2. Move message to output area. 


3 


Also move all inserts to message 
if any. 


4. Print message. 


Cail 
Registers 5. Return. 


DLZLBLMO — Message Writer CSECT 


Extended Description Routine Label Extended Description 


4. A subroutine in DLZUACBO 
CSECT is called to do the actual 
printing. 





OUTPUT 


Catler 
Registers 


l 


iG 


MSG/..MSG 


nae 
WEL 


SYSLST 


To Calter 


DLZUACBO 


Routine Label 
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Figure 2-34. Prereorganization Utility (Part 1 of 4) Figure 2-34. Prereorganization Utility (Part 2 of 4) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From 
Batch 
Figure 23.4) DLZUCDSO 7. Continue to next step for each 
data base referred to in control PDEN 
list entry. SMEAEIE 


LENAME 





Address 
Calter Control List At end of entries, go to Step 15. : 
A 1. Save contents of R1 in PSTADDR. PSTADDR Registers 
PST 
PSTADDR PST 
2. Open printer and reader and PSTPSB 
establish PST and SCD cee DL/t Blocks 


‘and Buffers 


| 


8. Load utility PSB. 
BLDB 

eam) oP en Macro Address* 

emmed serine Macro 


OLZBLKLD Macro 
ASMTDLi 





BLDL Function for 
Utility PSB 


9. Find the PCB representing this 
data base. 


i 


PDIR 
3. Read contro! cards and 
SYSIPT validate content. At end of PCBLIST 
file go to Step 7. a 


PRMPCBAD 


addressability. DLZBLKLS | 
=> 


— GET Macro 


B 
DBPCBDBD 
DBPCBJCB 


OBDNAME 


l 





4. Convert the dbdname to a DMBNAME 


dmbname. 


DBR=dbdname 
JCB SDB 
JCBSDBND | |SDBLEN — > 10. Scan all segments in data base 


acsonen: | for logical relationships (LR) 
SCE OR GN ol ios and continue for each found. 


At end, return to Step 7. 


DMBLST 





5. Acquire list space if required 
and enter DMB in control list. 


= GETVIS Macro 


6. Return to Step 3 to process the 
next operand or control card. LECRNO 
LELEN 


LEFLG1 
Control List 


OMBNAME 
DLZUCDSO 
LEFPTR 
LENAME 





DLZURPRO — Prereorganization Utility DLZURPRO 


DLZURPRO — Prereorganization CSECT DLZURPRO Extended Description Routine Label Extended Description Routine Label 


Extended Description Extended Description Routine Label 


7. Write message DLZ9641 for no DBIL |DLZURPRO |SCAN 
or DBR control cards. 

5. Control list entries contain DMB 
names of data base and user options 
specified in control cards. 


1. Module identifier (DLZURPROvrnp) 


is defined here. Write message DLZ976I if the 


dbdname specified is an index DBD. 
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81-72 


This utility executes as ‘ULU’ under 
DL/I control. No blocks or buffers 


have been loaded yet. Only the nucleus 


exists. Batch initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 


. Control card contains identifier as 
DBIL= (initial load), DBR= 
(reorganize), OPTIONS=, and 
dbdnames. In case of an input control 
card format error, message DLZ9541 
is printed and job terminates. 








Macro DLZUCDSO contains the 
DSECT defining the format of a 
control list entry. 


already exists for a dmbname. 


maximum of 20, 


fails. 


Write message DLZ963I if an entry 


Write message DLZ3911 if GETVIS 


Write message DLZ965I if the number 
of control list entries exceeds the 





. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets utility suffix ‘U’ and calls DL/I 
with the BLDB call function. 


Write message DLZ956I for a data 
base control block build failure or 
if there is no PCB. 


R1 is returned with the address of the 
PSBLIST. 


. If a LP/LC exists for a segment, 
continue to the next step to look at 
the secondary list entries for the 
segment. After each SDB with a LR 
has been processed return to Step 7 
to process the next data base control 
list entry. 
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Figure 2-34. Prereorganization Utility (Part 3 of 4) : Figure 2-34. Prereorganization Utility (Part 4 of 4) 


INPUT PROCESS me — OUTPUT pe INPUT PROCESS OUTPUT 

sec ‘ : LSTHD 

—— 11. Scan ali SEC entries for fogicat 
parent (LP) or logical child [i 
(LC) entry and continue for each 
found. At end, return to Step 10. DLZUCDSO 
Data Base 17. Write Control list to control 
: List Entries data set. 
SEC DDIR : Contro! 
=— Gee 27 Mocro (sv802 
ndary 

see 12. Find the PSDB and then the SEC 


entry of the referenced t Pe 
thet points to this segment in Comat Ui 
PSDB order to find the LC’s LP or 18. Close contro! data set, printer, 


[omscsr _] the LP’s LC. reader, and punch. 
SDB =p CLOSE Macro 
13. Build a data base list entry eau 


for the found LP or LC if it Entre 
exists in a data base not on the we 
DBIL= or DBR= card. Segment List : Registers 19. Return. 


Entries 





Secondary List 
Entries 


14. Build a segment list entry for 





the segment and a secondary Conon Lat To 

list entry. Return to Step 11. racieetn 
DLZUCDSO (Figure 2-3.4) 
LENAME 
LESLPTR 15. Print and punch DBS cards if 

requested by OPTIONS. 
LEFLG1 
LEPSDBSG SYSLST _SYSPCH 

16. Determine device type and open 
the control data set. 
Gea i 20vce Macro 
(SYS012) == OPEN Macro 
DLZURPRO -- Prereorganization Utility DLZURPRO 
DLZURPRO — Prereorganization Utility Or zUBS : Extended Description Routine Label Extended Descripti Routine Label 








Extended Description Routine Label Extended Description Routine —- Label i" 
» 17. IDLZURPRO |SCLPS 


"18, Write message DLZ966I for a 
7 normal termination. 


19. 





15. DBS indicates data base must be © 
scanned using SCAN utility 
(DLZURGSO). 


Write message DLZ96721 to list 
segments scanned. 


11. 


12. The correct SEC is found by comparing 
the dbdname in the SEC to the 
dbdname in the SDB. 


Each SEC for the segment is examined 
to see if it is a LP or LC entry. . Write message DLZ984I if there is-an SCANS00 

invalid device assignment for : OPENCTL 
Write message DLZ9651 if a SEC is SYS012. 


not found with a matching dbdname. 


. Write message DLZ985]1 for a limit SCAN110 
check failure. SCANI40 





. Segment entries contain segment 
names involved in logical relationships 
(LR). 





Secondary list entries contain DMB 
names which refer to logically 
related data bases. 


As control data set list entries are built, 
each record is calculated to determine a 
maximum record length. The largest size 
is saved and put into field LESRTSZE 
when the control data set is written 
(Step 17). 
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Figure 2-35. DB SCAN (Part 1 of 8) 
INPUT PROCESS 


From 
Figure 
2-3.4 





Ri PST 
PSTSCDAD 
ScD 





console. 


= 


AFINODTF 2. Open Control Data 


BALR 


= 


Control 
Data Set 


3. Read all control records. 


=e) 
Bete: Set =} 


4. Close control data set. 


= 


= 





Scan Input Cards 
(Optionst) 


DLZURGSO — DB SCAN CSECT 


Extended Description Routine Label 


1. Module identifier is defined here. This |DLZURGSO |DLZURGSO 
utility executes as ‘ULU’ under DL/I 
control. No blocks or buffers have 
been loaded yet. Only the nucleus 
exists. Batch Initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 
The DLZDSEHO prefix contains 
addresses to routines within 
DLZDSEHO: The routines are used 
by this utility. The addresses are 
moved to a constant area beginning 
at ADSEHO. 


. The ‘FINDDTF’ subroutine of 


DLZDSEHO is used to check that 
SYS0O12 is properly assigned to a disk 
and to fill the correct device type 

in DTF. 


Write DLZ984I if the control file is 
not assigned to a disk. 


. The Control Data Set is moved from 
the I/O area to storage acquired by 
GETVIS for further processing. 


| _____-> 1, Establish addressability and 
open the printer, reader, and 


5. Read input control cards. 





OUTPUT 


PSTADDR 


jisters 
ADSEHO 


OPEN Macro 






Check ASSGN and 
fill OTF. 






OPEN Macro 


CDSHD DBNAMEFC 


GET Macro 


GETVIS Macro 
Control Data Set 


CLOSE Macro 


GET Macro 


- DLZURGSO 


Extended Description Routine Label 


3. (con’t) 


Write DLZ3911 for:a GETVIS 
failure. 


Write DLZ957I for-no control data 
set or, if the ID is not ‘CONTROL 
DATA SET’. 


CDSEOFB 


. Input on ‘DBS=’ card is used to NXTCR 
modify Control Data Set in core. 
‘RSTRT=’ and/or ‘CHKPT=’ specify 
checkpoint/restart capabilities. 


‘ABEND’ card used for testing. 


Write DLZ954I for a control card 
format error. 











Figure 2-35. DB SCAN (Part 2 of 8) 
INPUT 


OLZUCOSO 


Control 
Data Set 











AOPENWRK- 


WORKFIL 





AFINDDTF — 


ESTART 
(optional) 





a> 


ESTART 
(optional) 


DLZURGSO — DB SCAN CSECT 


- Extended Description . 


6. Write DLZ984I for unknown or ignored 
device type. 


. Restart records are copied from the 
previous WORKFIL until the specified 
checkpoint record is found, An SSA 


is set to do qualified GU on last 
segment to reestablish position. 


PROCESS 


a. For DBS=, set up list entry scan. 


b. For RSTRT=, set up to perform 
restart. 


c. For CHKPT=, set up to perform 
checkpoint. 


6. Open work data set. 


femme) [21205810 
BALR [Open WORKFIL 


7. If not restarting,.go to step 14. 


8. Open Restart file. 


BALR 





hack ASSGN 
and fill DTF 
== OPEN Macro 


9. Copy records to output file (including 
checkpoint records) until the check- 
point record to restart from is found. 





= GET Macro 
== PUT Macro 


- Extended Description 


OUTPUT 


Dizucpso 


LEFLG1 


RSTRTVC 


CHKPTING 


eae 


AWORKFIL 


Co] 


WORKFIL 


DLZURGSO 


Routine 


RSTRTN 





Label 
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Figure 2-35. DB SCAN (Part 3 of 8) 
INPUT PROCESS 


10. Get ready to position the data 
base to the segment identified 
in the requested checkpoint 


i ; 
j 
a 


CKPT Record 


eres 


11. Copy the checkpoint continua- 
tion record to the work file. 


Gen} GET Macro 
(===) PUT Mecro 


RESTART 
(optional) 







12. Locate the data base list entry 
and segment list entry in the 
Control Data Set to restart 
processing from. 


13. Close Restart file. 


——) CLOSE Macro 


—--—- pp 14. Get a data base list entry and 
continue to step 15 for each 
one found. 

After all list entries have 
been processed, go to step 34. 





OBNAMEFC 


CURDBPTR 


DLZURGSO — DB SCAN CSECT 


Extended Description Routine Label Extended Description 


10. The SSA built is a qualified key 
call — ‘segname*C (key)’ to be used 
in the call at step 21. 


. A continuation checkpoint record 
contains the key value which is 
moved to the SSA for a qualified 
key call. 


. Write DLZ9751 Restart complete. 


. Write DLZ966I for normal program 
termination if there are no more 
DB list entries to process. 


OUTPUT 


PRMLST 


oo 


WORKFIL 


DBNAMEFC 


CHKORGS 





ay OBPTR 


DLZURGSO 


Routine 





Label 


Figure 2-35. DB SCAN (Part 4 of 8) 
INPUT 


DLZUCDSO__ P 


LEFLG1 





ee 


DLZUCDSO PSTADDR 


cenave JJ 


DLZBLKLS — 


DOS CIL 


POBN 


PST 
Cesress 7] [ 


PDIR 


PDIRADDR OBPCBDBD 


ae 
PSBLIST 








PCB CURDBPTR oS 
ercame][ 


JCB DLZUCDSO 


JCBSOBND 


CKPT Record 


DLZURGSO — DB SCAN CSECT 


Extended Description 


15. If DBS control cards were present, 
only those data bases in the control 
list that were on DBS cards are 
scanned. 


Write DLZ970I scan processing 
started. 


. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets the utility suffix ‘4’. The ‘BLDB’ 
call loads all blocks for the PSB 
specified and allocates buffers. 


Write DLZ956I for a data base control 
block build failure. 


. If a PCB is not found, an UNLD is 
done to release the buffers before 
te next BLDB cali (return to step 
16). 





PROCESS 


15. Determine if this data base is 
to be scanned. Return to step 
14 if not. 


16. Load Utility PSB. 


= DLZBLKLD Macra 


ASMTDLI 
BLDB function 
for utility PSB 


17. Find the PCB representing this 
data base. 


am) CALL Macro 


ASMTDL} 






18. Save PCB and JCB pointers. 
Set up initial segment list 
entry. 


Extended Description 











OUTPUT 


=e. 


DL/I Blocks 
and Buffers 


PRMPCBAD 







PJCB 


ies 


ae 


DLZURGSO 


Routine 





— ep 


CURSGPTR 


i) 
PE] bom] 





Label 
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Extended Description 


Figure 2-35. DB SCAN (Part 5 of 8) 


INPUT mm PROCESS OUTPUT 











DLZuUcDsO 
segment 
______ » 19, Locate the SDB and PSDB for DLZUCDSO 
—— each segment list entry that LEPSDB 
3 is to be scanned for this db 
JCB SDB entry. 
CURSGPTR 
20. Get 1/O areas. 
PRMLST 
(=m FREEVIS Macro 7 
es GETVIS Macro eee 
icu | | ___. > 21. If restart, position the data Pes 
pee 
===> ee 
A (SSA) jacro 
Cae 
Dato Bas Cu 
Data Base(s) 
"> 22. Get a segment list entry, 

SunsGrTe build a parm list for its 
pL segment type and continue to fcu.S~* 
next step. At the end of 

CHKORGS entries, go to step 14, 

PsoB 

DLZURGSO — DB SCAN CSECT DLZURGSO 
Extended Description Routine Label 


Routine Label 





19. The Control! Data Set entries are 
modified to save SDB and PSDB 
addresses. 


Write DLZ969I if an SDB is not 
found for the segment in the segment 
list entry. 


. The size is the longest needed for 
this data base. Any previous I/O 
area is freed, 


. Position is by a qualified key call. 


. The first segment list entry will 
either be the initial entry for the 
db or the segment list entry to 
restart from. 


Write DLZ9711 Scan processing 
completed for this DB if no more 
segment entries. 











Figure 2-35. DB SCAN (Part 6 of 8) 
INPUT ones 


PRMLST 
Count 


| A (1/0 area) | {t/O ares) 
LAissa) | 





PCB — 
DBPCBSTC 


PSTADDR 


JCB 


SDB 


LEV 
scD 






PST 





aa 


PSDB 


Parm List ne 








LEFT ptr 


DLZURGSO — DB SCAN CSECT 
Extended Description _ 


23. Every occurrance in the data base of 
the LC or LP segment type to be 
scanned is read and a workfile record 
created for it. 


. If the return code is ‘GB’, indicating 
EOF for this segment type, return 
to process next segment list entry. 


. Scan must have the prefix information 
to give to DLZDSEHO. 


Write DLZ958I for 2 buffer handler 
error retum. 


. In addition, Ril has the address of 
WORKFIL DTF, R1 has the PST 
address, and PSTWRK1I has the 
‘FUNCIHPS’ and SDB address. 





PROCESS OUTPUT 


p> 23. Issue a GN for segname. : 0 Area 


a) CALL Macro. 
GN segname 
to DL/t 








24. If there are no more occurrances 
of this segment type, go to 
step 22, 





PST 
PSTFNCTN 
PSTDSGA 


lestayTNM | 
25. Get buffer address of segment. 


[orzpsn00__| — 
DLZDBHOO PSTDATA 
Parm List {R3) 









prefix + 
segment (in 
buffer) 





26. Fill in parameter list for 


DLZDSEHO. oe 


LET ptr 
LTB ptr 

LP ptr 

A {LPCK} 

A (CDSREC) 


27. Go write WORKFIL record. 


= DLZDSEHO 
BALR of 


save 
registers WORKFIL 





DLZURGSO 


Extended Descripti Routine Label 





Test routine in DLZDSEHO will 
determine the output records required 
by scanning the SEC list. 


. Registers are saved and then restored 
upon return. 


Write DLZ9521 for an error return 


code from DLZDSEHO. 
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Figure 2-35. DB SCAN (Part 7 of 8) 
INPUT PROCESS 


CHKPTINC — CHKPTLOC — —— —#>28. Perform checkpoint operation if 
required. Otherwise, skip to step 33. 


PRMPCBAD PCB 
| "29. Build checkpoint record. 





Checkpoint 
Record 


30. Write checkpoint record to 
WORKFIL. 


eam) PUT Macro 














AWRKDSEH PCB 
C___] > 31. Build the continuation checkpoint 
record. 
Checkpoint 
Record 
Continuation . ‘< 7 . 
ji 32. Write continuation checkpoint 
ae record to WORKFIL. 


[ am Sale 
(ump TRUNC Macro 


33. Return to step 23 to get next occurrance 
of this segment type. 


DLZURGSO — DB SCAN CSECT © 


Extended Description Extended Description 


28. A checkpoint record is written after 
every ‘n’ work file records. ‘n’ is 
specified on the CHKPT input card. 


. Note that the checkpoint record is 
built with zeros where the RBN 
number would be (CHKPTSUB). 
This forces an *C call (qualification 
by concatenated key) instead of 
*T (retrieve by direct address) 
during restart processing. Retrieve 
by direct address would be used if 
working with HISAM data sets. 


. Message DLZ9671I is written to the 
console giving the current check- 
point record number for later 
reference. 


OUTPUT 


CHKPTLOC 


I 


Checkpoint 
Record 


CHKPTN 

CHKPTSVC 
CHKPTSVD 
CHKPTSVE 


= 
° 
2 
az 
a 
r 


Checkpoint 
Record 


fength of record 


CHKPTN 
key length 


WORKFIL. 


Ul 


DLZURGSO 


Routine 








Label 





Figure 2-35. DB SCAN (Part 8 of 8) 
INPUT PROCESS 






Card Control > = 84. Dump if non-zero error code 
(optional) and ABEND was on a control 
RTCD card. 


[ }] dandy PDUMP Macro 
35. Close all files. 


(ama) CLOSE Macro 


Caller 
DLZURGSO — DB SCAN CSECT 
Extended Description Routine Label Extended Description 


34. 


36. Indicate to batch initialization that 
UNLD is not necessary (R15 = 4) if 
this utility is terminating before any 
blocks were loaded or if there was a 
control block build failure. 





DLZRRCOO 
2-3.4 


OUTPUT 


DLZURGSO 


Routine 


Label 


Wa] jo 4,19d01g—jellajej] posusory 


7 UOTPNS 


uoneled¢ Jo pomp, 


681-7 





Figure 2-36. Prefix Resolution (Part 1 of 4) 


INPUT 


From 
DOS/VS 


SYStPT 


Oata Set 


DLZURG10 — Prefix Resolution CSECT 


Extended Description 


1. Module identifier (DLZURG10vrnp) 
is defined here. 


The time and date are acquired and 
message DLZ9681 is printed at this 
time to indicate the beginning of 
execution for DLZURG10. 


. Write message DLZ954I for an input 
control card format error. 


. Write message DLZ984] for an invalid 
device assignment for the file. 


. Write message DLZ957I if there is no 
control data set or if the ID is not 
“CONTROL DATA SET”. 


Write message DLZ3911 for a GETVIS 
failure. 


The maximum record length calculated 
by the prereorganization utility is 
obtained from field LESRTSZE and 
passed to SORT. 


PROCESS OUTPUT 


1. Establish base addressability. 


eux OPEN Macro 
COMRG and 
GETIME Macros 


2. Read control card and close SYSIPT. CNTLCARD 


GET Macro aa 
Card I/O Area 
(=p CLOSE Macro 


3. Determine device type and open the 
CONTROL data set. 


mzz) DLZDVCE Macro 
cam) OPEN Macro 


4. Read all control records. 


mp oo 
== GETVIS Macro 
CONTROL 


5. Close the CONTROL data set. Data Sat 


== CLOSE Macro 


R12 R8& 


CDSHD DBNAMEFC 


eee | RRR 


DLZURG10 


Routine Extended Description Routine Label 








Extended Description 





Figure 2-36. Prefix Resolution (Part 2 of 4) 
INPUT PROCESS OUTPUT 


— — -® 6. Determine device type and open first 
input workfile and output files. 
WRKINnan 


INOXWRK 


INTRMED DLZDVCE Macro 


CNTLCARD (ab OPEN Macro 


CNTLIR 


Card 1/O Area 


INDXWRK 


C "> 7. Load and execute SORT/MERGE. 


WRKINon eam LOAD Macro C: 
= SORT/MERGE iTAMED 
par |_| 


8. Close secondary index data set if it was 
opened. 
easy CLOSE Macro , 
posiys 9. If no fogical relationships, go to Step 14. 
image 
Library 
DLZURG10 — Prefix Resolution CSECT DLZURG10 


Extended Description Routine _ Label 


6. The secondary or logical data sets may 
or may not be opened depending on the 
user option on the input control card. 


. Write message DLZ9821 if the return 
code from SORT is not zero and go 
to Step 15. 


Sort is by (13, 255, A, 5, 1, A). Exits 
EIS and E35 are described in Figures 
2-36.1 and.2-36.2. 


. If there was no data put to the second- 
ary index data set, put a dummy record 


before closing. 
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Figure 2-36. Prefix Resolution (Part 3 of 4) : 
INPUT PROCESS OUTPUT 


areas 10. Close intermediate file and 
OC determine device type and open 
for input. 
INTRMED 
eee CLOSE Macro 
(am DLZDVCE Macro 
= OPEN Macro 
—-—— 11. Determine device type and open 
logical relationship output 
data set. 


WORKFIL == DLZDVCE Macro 
Gea OPEN Macro 


Ri 
12. Load and execute SORT/MERGE. 
PARLST2 eed LOAD Macro 


ame) [sontmence sysot1 


INTRMED 





= — -— $13. Print statistics and message 
summary if requested. 
CONTROL SYSLST 
Data Set ee) FUT: Macro 
DLZURG10 — Prefix Resolution CSECT DLZURG10 
Extended Description Routine Label Extended Description Routine 


. Sort is by (29, 16, A, 5, 1, A). Exits 
E15 and E35 are described in Figures 
2-36.3 and 2-36.4. 


Write message DLZ9821 if the return 
code from SORT is not zero and go 
to Step 15. 


. Control data set contains options as 


specified in DLZURPRO. 





Label 





Figure 2-36. Prefix Resolution (Part 4 of 4) 
INPUT 


CNTLCARD  RTCD 


DLZURG 10 — Prefix Resolution CSECT 


Extended Description 


14. Write message DLZ966I for normal 
program termination, 


15. 
17. 





PROCESS 


14. Dump if error code is 16 or 
8 and DUMP was specified on 
the control card. — 


oan | POUMP Macro 
15. Close the printer. 


eam CLOSE Macro 


16. Close INTERMED and WORKFIL if 
required. 


== CLOSE Macro 


17. Return 


EOJ Macro 


To DOS/VS 


Extended Description 








OUTPUT 


SYSLST 


DLZURG10 


Routine 


Label 
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Figure 2-36.1. SORT E15 (DLZX15S1) 


INPUT 
From 
SORT/ 
MERGE 
WRKINnn 

CNTLCARD 

CNTLIFC 

Card 1/0 

Area 


DLZX15S1 — SORT E15 CSECT 


Extended Description 


PROCESS 


1. Read workfile records and pass 
to SORT/MERGE. 


pa) SAVE Macro 
eas GET Macro 


(ax RETURN Macro 


2. At end-of-file, close workfile 
and open next one, if any, and 
return to Step 1. 


mab CLOSE Macro 
=” OPEN Macro_ 


3. When no more workfiles, indicate 
end to SORT/MERGE. 


To 
SORT/ 
MERGE 


Routine Label Extended Description 


1. Record length is changed to the maximum[DLZX15S1 |DLZXI15S1 


record length calculated by the prereor- 

ganization utility (DLZURPRO) and 

passed to SORT by the prefix resolution 

utility (DLZURG10). Original record 

mee is saved in last 2 bytes of LRECL 
ield. 


Indicate ADD to SORT/MERGE after 
each GET. . 


. CNTLIFCis the number of input workfiles 
specified on the utility control card. 





OUTPUT 


PARMADDR 


PARMADDR 


DLZURG10 


Routine Label 


Figure 2-36.2. SORT E35 (DLZX35S1) 








INPUT 

From 
SORT/ 
MERGE 

Ri 

A (Parm List) 

Parm List 

DLZURWE1 COSHD 


ALTYPE 


CONTROL 
Data Set 






DLZX35S1 — SORT E35 CSECT 


Extended Description 


1. SORT/MERGE passes one record ata |DLZX35S1 |DLZX35S1 


time to this exit. The record is repre- 
sented by the macro DLZURWF1 which 
contains the DSECT defining the 
format. The original record length is 
restored before processing. 


. Macro DLZURWFS3 contains the 
DSECT defining the format of the 
output logical record and later used as 
input for DLZURGPO. 


Possible errors are: 


DLZ9SSI — Invalid input record. 

DLZ977I — Duplicate record for LP. 

DLZ978I — Caution — no LC for LP. 

DLZ9791 — No LP found for LC. 

DLZ980I ~ No LC found for LT. 

DLZ989I — Multiple LC/LP with no LT 
pointer specified. 


. This file used as input for second 
SORT/MERGE. 


. This is final output for secondary 
index relationships. 





Routine Label 


PROCESS 


= 


. Establish address to record 
passed by SORT/MERGE. 


ex SAVE Macro 


2. If the record address is zero, 
go to Step 7. 


3. Process record depending on 
record type. 


4. If logical relationships, 
write to intermediate file. 


ez PUT Macro 


5. If secondary indexing, write 
to SI output file. 


Ge) FT Mecro 


6. Indicate DEL to SORT/MERGE. 


RETURN Macro 


7. Indicate END to SORT/MERGE. 


Extended Description 


EXIT35S1 reenters this exit at Step 1. 


OUTPUT 


iNRECAD 


PARMADOR 





DLZURWEF3 


O 


INTERMED 


Q 


INDXWRK 


PARMADDR 
A (Parm List} 
Parm List 


A{DEL) or A (END) 





DLZURG10 


Routine 


6, SORT/MERGE gets another record and 
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Figure 2-36.3. SORT E15 (DLZX15S2) Figure 2-36.4. SORT E35 (DLZX35S2) 











INPUT PROCESS z OUTPUT 
INPUT ae PROCESS OUTPUT od , 
SORT/ SORT/ 
MERGE MERGE 
PARMADDR R1 
PARMADDR _INRECAD 
7 f | [A trecordy ] {record) 
[> 1. Get records from intermediate : . 1. Establish address to record <i 
©) file and pass to SORT/MERGE. ui Parm List passed by SORT/MERGE. DLZURWF3 
INTERMED GREED SAVE Macro GEMM) SAVE Macro 
ep GET Macro 2. if the record address is zero, 
DLZURWE3 go to Step 6. 
PARMADDR 
A (Parm List) APE 3. haar dae depending on Work Area 
2. At end-of-file, indicate end es = —] yi iae 
to SORT/MERGE. : 
4. Write to LR output file. C) 
Ge) rut Mecro ia 
WORKFIL 
To 
MERGE 
5. Indicate DEL to SORT/MERGE. PARMADDR 
RETURN Macro Parti lak 
6. Indicate END to SORT/MERGE. 
A (DEL) or A (END) 
RTCD 
i. To 
SORT/ 
MERGE 
DLZX15S2 — SORT E15 CSECT DLZURG10 DLZX35S2 — SORT E35 CSECT DLZURG10 
Extended Description Routine Labei Extended Description Routine Label Extended Description Extended Description Routine Label 





1. This file was written during first sort. |DLZX15S2 |DLZX15S2 - SORT/MERGE passes one record at a 
time to this exit. 
. Possible errors are: 


DLZ955I — Invalid input record. 
DLZ9801 — No LC found for LT. 
DLZ981I — Duplicate record for LT. 


. This file used as input for the prefix 
update utility (DLZURGPO). 


. SORT/MERGE gets another record and 


reenters this exit at Step 1. 
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Figure 2-37. Prefix Update Utility 
INPUT From DL/! 


SYSIPT- 





DLZURGPO — Prefix Update Facility 


Extended Description 


. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 


. DLZBLKLD macro is used to load DB 
blocks dynamically. 


. TYPE 0 and TYPE 1 records (LC/LP) 
are processed by buffer handler calls. 
TYPE 4 records (SI) are processed by 
DL/I INSERT/UPDATE calls. 





PROCESS 


1. Read control card. 


2. Determine device type and open 
input files. 


3. Read input record. 


4. if not alreedy loaded, load data 
base control blocks. 


5. Process input record. 


6. At EOF, close all files. 





OUTPUT 
Date Base 
Return to 
DL/I 
OLZURGPO 
Routine Label 











WAI Jo Ay19d01g—yeL10;8 JQ] posuasry 


v61 -7 


Z aUINJOA ‘JenueW 51307 SA/SOd I/1d 


Figure 2-38. Workfile Generator (Part 1 of 2) 


From 


INPUT BeeDDLEO g@ PROCESS 
Figure 2-10 
1. Perform initialization (Figure 
From 2-38.1.). 
DLZURGSO 
Parameter Fig. 2-35 


_tist (R3) 





2. If DLZURGSO is caller, 


A. Initialize dummy reload 
prefix header with par- 
ameters. 


B. Store its address. 


Dmescoe 3. If end of secondary list, go 


to step 7. 


: 4. Match control data set entry 
with LC or LP secondary list 
entry. 


Control 


Data Set TY» 5. If LP segment, 


A. Build Type 00 record. 
PSTUSER 


[__—}fss10000 J B. Put to WORKFIL. 


C. Go to step 3. 


DBPCBKFD 1/0 area 
segment 





6. Go to Figure 2-38.4 to process 
LC segment. 


OLZDSEHO — Workfile Generator 


Extended Descripti Routine Label 





1, This primary entry point is used by IDLZDSEHO |INIT 
Load/Insert when a data base is being 

initially loaded or reloaded. There are 

7 fullwords of addresses immediately 

preceding this entry point used by 

modules that interface with 

DLZDSEHO. A logical parent or 

logical child record is input to this 

module, 


2. This is the primary entry point for the 
scan utility. 


3. This routine must be re-entered when 
the input segment is an LP because 
it could have more than one LC type. 


4. 


5. Description of WORKFIL record can 
be found in DLZURWF1 dsect. 





OUTPUT 


cae 


PSTUSER 


WORKFIL 
Record 


WORKFIL 


OLZDSEHO 


Routine Label 


Figure 2-38. Workfile Generator (Part 2 of 2) 
INPUT PROCESS 


7. Exit with return code. 


OLZDSEHO — Workfile Generator 


Extended Description Routine Label 





7. If any error occured, call DL/I error 
message module to write DLZ0071 
message on console with return code. 


Return to 
Caller 





OUTPUT 


Ri6 


Carers 


DLZDSEHO 


Routine 





Label 
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Figure 2-38.1. Initialization 








Figure 2-38.2. Open Workfile 
INPUT 





From Caller 


PROCESS 


OUTPUT 
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INPUT Ero Fig. PROCESS OUTPUT {See Note) 
ee 1. Establish addressability for R13 R14 1. Establish addressability. 
BUM bent | _ 
2. If WORKFIL is not open, go to fis — 2. Set up input for FINDDTF. m Ss 
Figure 2-38.2 to open it. 
WORKFIL OTF) 
: 3. Get DTF address (Figure 2-38.3). 
3. Open Control Data Set and read 
all records. 
pa ee peas — —) 4. open DTF for WORKFIL. oe C) 
4. Close Control Data Set. WORKEIL 
5, Save DTF address. Entry Point — 4 
6. Exit to R14 + 4, 
To Fig 2-38 
Step 2 
Return to 
Caller 
DLZDSEHO — Workfile Generator DLZDSEHO OLZDSEHO — Workfite Generator DLZDSEHO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





Note: This routine is called by DLZDSEHO. 


1. The secondary list entries for the input |DLZDSEHO DLZDXMTO, and DLZURGSO. 


segment are the primary source of 
information from the DL/I blocks. ; PENWORHDPENWORK 


. The address of the DTF is found in 


uonesedg Jo poyep :Z UOTIDES 
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the address list at the beginning of 
DLZDSEHO. If it is 0, this workfile 
must be opened. 


. This open is done only once. The 
‘FINDDTF’ routine is used to 
determine the correct DTF. If more 
than one record exists on the CDS, 
a GETVIS is done to hold the entire 


file in storage at one time. 











. If control is returned to address in 
R14, an error occurred. R14 + 4 is 
the normal return. 


. R15 has address of correct DTF as 
returned by FINDDTF. 


. When the WORKFIL is open, the 
address is saved in the address list in 
the beginning of DLZDSEHO csect. 


. If an error was detected, control is 
returned to the address in R14. 
Normal return is R14 + 4. 








eo 
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Figure 2-383. Find DTF 


INPUT From Caller 
{See Note) 





R3 
oe 


R2 


DLZDSEHO — Workfile Generator 


Extended Description 


Note: This subroutine is called by 
OPENWORK, DLZDSEHO, and 
DLZURGSO. DLZDVCE macro finds 
PUB entry for given programmer logical 
unit and the device type byte is used to 
determine further processing. 


- 2400, 3410, and 3420 are supported. 


. 2314, 3330, 3333, 3340A & B are 
supported. 


. Normal return. 


. This allows DLZDXMTO to build 
secondary entries. 


. This is the error exit. 





PROCESS 


1. Issue DLZDVCE macro. 


2. If a tape, set R15 to tape 
DTF address. 


3. If a disk, 
A. Modify DTF 


B. Set R15 to disk OTF address. 


4. If other than tape or disk, 
go to step 6. 


5. Exit to R14 + 4. 


6. If IGN, set R15 to zero. 


7. Exit to R14. 


Extended Description 





OUTPUT 


DTFE 


R15 
A (disk DTF) 


Retum to 
Caller 
R15 
Return to 
Calter 


DLZDSEHO 


Routine Label 





Figure 2-38.4. Build LC Output 
INPUT PROCESS 


From Fig. 
2-38 Step 6 


PSTUSER 1. Build type 10 record and 


write it to WORKFIL. 
DMB 
2. If LTF pointers and non-unique 


sequence field, build and write 
type 20 record. 


DBPCBKFD 


3. If LTB pointers and non-unique 
sequence field, build and write 


type 30 record. 
Control 
Data Set 
DLZDSEHO — Workfile Generator 
Extended Description - Routine Label Extended Description 











To Fig 2-38 
Step 7 





OUTPUT 


WORKFIL 
Record 


WORKFIL 
Record 


WORKFIL 
Record 


DLZDSEHO 


Routine Label 
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Figure 2-39. Log Print Utility 
INPUT From 
DOs/vs 





LOGINO1 to LOGINan 


DLZLOGPO — Log Print CSECT 


Extended Description 


. Register 1 points to log print common 
area. 


. Output log requested by ‘COPY’ on 
‘LO’ statement. 


- DLZDVCE macro obtains data from 
PUB (physical unit block) and modifies 
DTF. If VSAM log, ACB is modified 
manually. 


. Valid DL/I record types are: 


© Data base record (X‘50’ and X‘51”) 
© Open record (X‘2F’) 

© Scheduling record (X‘08’) 

© Termination record (X‘07’) 

© Checkpoint record (X‘41’) 


. Records are printed in either keyword 
or dump format. 


. Log records are written to tape as read. 


. nna of LOGINnn is incremented by 1 
if more files. 


. Output log is closed when log record 
in error is encountered. 


PROCESS 


Routine Label 





. Read and process control cards. 









DLZLPCCO 


am) ~ - Contro! Statement 
Processor 2-39.1 


if any errors detected by DLZLPCCO, 
go to Step 9. 


. Open output log if requested. 


. Determine log device type and 


open log file. 


Read log records, deblock, and 
determine record type. 


. Print tog records. 


. Write log records to tape if requested. 


. Close input log file. If more files, 


return to Step 3. 


. Close output log if requested. 


. Print informational statistics 


and error messages, if any. 


DLZLOGPO |GETCARD 


Extended Description 


Figure 2-39.1. Control Statement Processor (DLZLPCCO) 


INPUT PROCESS OUTPUT 
From Figure 
2-39 Step 1 


1. Read control statements. 


SYSIPT 


2. Validate control statements and save Log Print Common Area 


information in log print common area. 


3. Return to DLZLOGPO. 


To Figure 
2-39 Step 1 





To 
DOS/Vs 


OLZLOGPO 


DLZLOGPO — Log Print CSECT OLZLOGPO 


Routine Label 


Extended Description Routine Label Extended Description Routine Label 


1. Possible card types are: 
‘LO’ — describes print options, 
‘LS’ — describes additional selective 
print options, 
‘LI’ — describes input log files. 


DLZLPCCO | GETCARD 


2, Flag ERROROCC in LOGPFLG1 is set if 
any errors are detected. 


3. If no input statements received, print 
default message DLZ41 61. 
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Figure 2-40. Field Level Sensitivity Copy 


INPUT From-Figure 
PSTUSER 2-8.1 Step 8A 


PSBIOCAWK 


A (Output 1/0 Area) 










ey 


PSDB 


* DLZCPY10 — Field Level Sensitivity Copy 


Extended Description 


1. PSTUSER points to uset’s view of 
segment(s). PSBIOAWK points to 
1/0 area to contain physical view of 
segment(s). 


. LEVUSEOF will be changed from 
offset in user I/O area to offset in 
output I/O area. 


. Length of segment to be moved 
must be determined. If variable 
length segment, length is in first two 


bytes of segment, otherwise in PSDB. 
If concatenated segment, logical child 
and destination parent lengths must 
be added. 


Routine Label 


DLZCPY10 





. PROCESS 


1. Get addresses of user segment(s) and 
output 1/0 area. 


2. Calculate segment offset in output I/O 
area for this level. 


3. If segment at this level is not FLS, move 
as is from user I/O area to output 1/0 
area. 


4. If segment at this level is FLS and call 
is ISRT, perform insert processing. 


ISRT 
Perform insert 
Processing 2-40.1 


5. If segment at this level. is FLS and call 
is REPL, perform replace processing. 


Perform replace 
6. If another level to process, go to step 2. 


Otherwise, point PSTUSER to output 
1/O area and return. 













Extended Description 


DLZCPY10 


Return to 
Caller 


OUTPUT 


LEVUSEOF 


PSTUSER 


A (Output 1/0 Area 


DLZcPY10 


Routine Label 


: Figure 2-40.1. Field Level Sensitivity Insert 


INPUT 


From Figure 


PROCESS OUTPUT 


2-40 Step 4 


PSDB 


SDB Exp 


DLZCPY10 — Field Level Sensitivity Copy 


Extended Description 





1. If variable length segment, use insert 
length in SDB expansion block. 
Otherwise use length in PSDB. 

If concatenated segment, logical 
child and destination parent lengths 
must be added. 


. Possible status codes are KA, KB, KC, 
and KD. 


EEE) 








1. Determine physical length of segment 
to be inserted. 


2. Clear segment to binary zeros. 


3. Scan FDB chain and, if segment is a logical 
child, the SEC chain to tocate all fields for 
the segment. Move default value to output 
1/O area for each non-key field. 


4. If concatenated segment, scan destination 
parent FDB chain to locate its fields. Move 
default value to output I/O area for each 
non-key field. 


5. Call DLZSEGCV. 


DLZSEGCV 


Segment convert Routine 
2-40.3 


If conversion error, return status code 
to user. 









OBPCBSTC 
status code 


Return to 
Figure 2-8.1 
Step 9 


6. Return 


To Figure 
240 Step 6 


DLZcPY10 


Routine Label Extended Description Routine Label 


DLZCPY10 
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Figure 2-40,2. Field Level Sensitivity Replace 





Figure 2-40.3. Field Level Sensitivity Segment Convert 


INPUT arte PROCESS 
INPUT From Figure PROCESS riom.Cal er 
Buffer 4. Read seament to be replaced FER 1. The SDB is used to locate the SDB 
old segment 7" E CL) expansion block and the first FSB. 
SDB 


DLZDBHOO 
east Buffer Handler 
2-15 


and move to output 1/O area. 





C 
FSB 


. If concatenated segment, read 
destination parent segment. 


OLZDBHOO 


Buffer Handler FER 3. 


. Call DLZSEGCV. 
pum 4 


Segment convert Routine 
240.3 


If conversion error, return status 
code to user. 








DBPCBSTC 5 


if REPLACE=NO option specified, scan 6 
FSB chain and compare new field 

to old field. If field modified, return 

status code to user. 


To Figure 
2-40 Step 6 


DLZSEGCV — Field Level Sensitivity Segment Convert 





DLZCPY10 — Field Level Sensitivity Copy -DLZCPY10 


Extended Description Routine 


Extended Description Routine Label Extended Description Routine Label 
Note: DLZSEGCV is called by 


1. DLZCPY10 DLZCPY10 and DLZDLROO. 


3. Possible status codes are KA, KB, KC, 
and KD. 

2. DLZDLROO makes SSA call to 
convert SSA user field to physical 
view. Only this field and its 
subfields will be converted. 


4. Status code KE is returned. 


. Possible error codes are A, B, C, 
and D. 





. If SSA call, compare SSA field name to 


FSB field name. If no match, go to 
step 7. 


Initiatize FER fields and set to and 
from parameters. 


If to and from types different, convert 
field to desired format. 


. Move field to destination. 


. Call user field exit routine, if any. 









= user field exit routine 


If error indicated in FER, return error 
code to caller. 


. If another FSB to process, go to step 2. 


Otherwise, return to caller. 


Label Extended Description 


1. DLZSEGCV | DLZSEGCV 


FSBLOOP 


FSBO10 
CONVERT 
MOVE 
USEREXIT 


NEXTFSB 


Return to 
Caller 


FERPCSC 


OLZSEGCV 


Routine 





Label! 
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Figure 2-41. Trace Print Utility 
INPUT 


From 
Dos/vs 


SYSIN 


DISKIN 


TAPEIN 


DLZTPRTO — Trace Print Utility 
‘Extended Description 


2. Reads TI statement if present and 
prints card image on. SYSLST. If any 
other type statement is present, it is 
also printed, but no further processing 
of it takes place. 


4. Storage is acquired for two input 
buffers. 


5. ‘thé DLZDVCE macro is used to 
validate the trace input device, and 
modify the tape or disk DTF. 


6. The unformatted trace records are 
read: from the trace input file until 
EOF is retumed. 


8. The trace entries‘dre formatted and 
printed one at atime until all entries 
in the record are processed. Control. 
is then passed to step 6 for the next 
record. 








PROCESS OUTPUT 


1. Open reader, printer, and console log. 
: SYSLST 


if present. | 

3. Close reader. 

4. Acquire storage for input buffers. 

5. Check trace input device type, modify 
DTF, and open it. 

6. Read trace input. 

7. Check trace entry against. TO SYSLST 
selection, if specified. | 


8. Format and print trace output. 
SYSLST 
SYSLOG 


DLZTPRTO 


2. Read and validate controi statements 


9. Close all files and issue any statistical 
or error messages. 


Return to 
DOS/VS 


Extended Description Routine Label 





Figure 2-42. DL/I Run and Buffer Statistics 





INPUT PROCESS OUTPUT 
cICs/vS 
CSA A 
1 Fe 7 Jaa . 
= — — <p 1. Establish addressability. Acquire 
working storage. 
SelF aries 
x TDOA 
D 2. Edit and put out run statistics. TDOAVAL 
BFPLROCT 
BFPLINPL 
BFPLROCT 
3. Convert buffer statistics to packed : 
BFPLO: decimal. 
: BFPLBKWT. 
SUBDMBCT 
WT 4. Edit and put out buffer statistics. 
zx LT] 
BFPLISTL 5. Convert one byte numbers to fullword, 
BFPLIGET then to packed decimal. Edit and put 
out configuration statistics. 
6. Issue message to terminal. 
7. Return to CICS/VS. 
cics/vs 
DLZSTTL — DL/! Run and Buffer Statistics ; DLZSTTL 
Extended Description Routine Label 


Extended Description Routine Label 


1. Entry is from CICS/VS when the user 
enters the transaction code ‘CSDE’ or 
when the CICS/VS master terminal 
operator issues the ‘CSMT SHUT- 
DOWN’ command. R12 contains 
the TCA address, R13 contains the 
CSA address, and R14 contains the 
entry point address. 


2. The CICS/VS macro DFHSC is used to 
acquire storage for the transient data 
output area (TDOA). 


3,4,5 Internal subroutine: STTLPUT 
writes the statistics to the CSSL 
extra-partition transient data set, 
using the DFHTD macro. 


. If DL/Lis not active, issue message 
DLZ280I using the DFHWTO macro. 


. Use DFHPC macro to retum to 
CICS/VS. 
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Figure 2-43. Partial Data Base Reorganization (Overview) 


INPUT 


1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 





PROCESS 


1. PART1 Control. 
(See Figure 2-43. 1) 


2. Action Table Build. 
(See Figure 2-43.2) 


3. Cleanup. : 
(See Figure 2-43.3) 


4. DBD Anatysis. 
(See Figure 2-43.4) 


5. PSB Source Generator. 
(See Figure 2-43.5) 


6. PART1 Report Generator. 


(See Figure 2-43.6) 


7. Parameter Analysis. 
(See Figure 2-43.8) 


8. Error Message Writer. 
(See Figure 2-43.16) 


9. PART2 Control. 
(See Figure 2-43.7) 


10. Parameter Analysis. 
‘(See Figure 2-43.8) 


11. Scan Control. 
(See Figure 2-43.9) 


12, Update Prefix. 
(See Figure 2-43.10) 


13. Sort Control. 
(See Figure 2-43.11) 


14. Unload/Reload Control. 
(See Figure 2-43.12) 


15. Workfile A 
(See Figure 2-43.13) 


16. DL/I Services. 
(See Figure 2-43.14) 


17, Statistical Writer. 
(See Figure 2-43.15) 


18. Error Message Writer. 
(See Figure 2-43.16) 


OUTPUT 
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Figure 2-43.1. PART 1 Control. 
INPUT 


DLZPRCT1 — PART1 Control 
Extended Description 


1. DBT — data base table. 
SGT — Segment table. 
ACT — action table. 


RGT — range table 
DOS/VS GETVIS issued. 


2. The common area (COMAREA) is part 
(CSECT) of this module and is not 
dynamically acquired. 








PROCESS 


1. Get storage for contro! tables. 


points in COMAREA. 


4. indicate Part 1. 


and return to caller. 


in link list. 


Routine Label 


2. Load service modules and save entry 


3. Initialize name of primary data base. 


& 5. Link to each phase in Part 1. 


6. Check for error on completion of each 
phase. If error, issue message DLZ6351 


», 7. Continue to completion of each phase 


Extended Description 


DOS/VS 





DLZPRCT1 


Routine 
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Figure 2-43.2, Action Table Build (Part 1 of 4) 
(NPUT PROCESS 

Figure 

243.1 


COMAREA 






: _————=—=_- 1, Get address of SGT, ACT, and DBT. 
ICOMASGT | 





COMAREA 


2. If SGT entry count is negative, issue 
message DLZ615!. 


= 


OLZPRERR 
Error 
message 
writer 






| 
| 
| 
| 


iz . 3. If ACT entry exceeds limits, issue 
message DLZ6231. 


= 


OLZPRERR 


Error 
message 
writer 






SGTGATR2 


aaa 4. If this segment is not a logical parent 
or a logical child that have logical 
pointers to a segment that is moving, 
exit. 





Caller 


5. Create ACT entry ‘K’ and scan action 
record for logical child's logical parent 
pointer update. 


DLZPRAEC - Action Table Build 
Extended Description Routine Label 


Extended Description 


4. ‘K’ action records. 


all 


Figure 2-43.2. Action Table Build (Part 2 of 4) 
OUTPUT anmen: INPUT PROCESS OUTPUT 


- 
Segment table] _ 6. If this segment is not a virtually paired 
T logical child whose logical parent is 
moving and there is a direct logical 
parent pointer, exit. 


Calter 


optional ‘K’ action entry for logical 


| 
| 
| 
| 7. Create a ‘C’ action entry type and an 
| parent pointer update. 

| 


8. If this segment is not a logical child 
that is moving and is in a virtually 
paired logical relationship, and there 
are logical twin forward but no logical 
twin backward pointers, exit. 


ACT 
9. Create ‘QO’ and ‘K’ action entries 
for logical twin forward and logical - 
child forward pointers. 


i. | 


10. 1f this segment is not a logical parent 
of a logical child, which have logical 
pointers to a segment that is moving 
and are pointed to by the segment 
that is moving, exit. 


ACT Caller 


ACTOPRMV 





ACTCROW 


DLZPRABC DLZPRABC — Action Table Build DLZPRABC 


Routine Label Extended Description Routine Label 


Extended Description Routine Label 
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Figure 2-43.2. Action Table Build (Part 3 of 4) 
INPUT PROCESS 
11. Create ‘P’ action entries for logical 
twin forward, logical twin backward, 
and logical child forward pointers. 


SGT 
—T —P 12. tf this segment is not a logical child 
I whose logical parent is moving and 
| which has a logical relationship in 
which both the logical child and its 
| paired logical child have direct logical 
| parent pointers, exit. 
l 
| 
| 
| 


13. Create ‘I’ and ‘K’ action entries for 
paired logical child’s logical pointer 
update. 


14. If this segment is not a secondary 
index source segment, a target 
segment of a secondary index re- 
lationship, or a secondary index 
source segment that is moving, and 
has an /SX/ specified, exit. 


15. Create ‘B’, ‘R’, and ‘S’ action 
entries. 


Fy en ee ge 


> 16. If this segment is not a moved. 


target segment of a secondary 
index source segment, exit. 
DLZPRABC — Action Table Build 
Extended Description Routine _— Label Extended Description 





OUTPUT 


dI 


h : 
Caller 
DLZPRABC 
Routine Label 





Figure 2-43.2. Action Table Build (Part 4 of 4) 


INPUT 


COMAREA 


DLZPRABC — Action Table Buiid 


Extended Description 


a | 


PROCESS OUTPUT 
17. Create ‘J’, ‘T’, and ‘B’ action 
entries. 


18. If this segment is not a logical parent 
or logical child that is moving, exit. 





ACT 
19. Create ‘A’ action entry. 
20. If there are more action table entries 

to process, go to Step 3, 
21. Check return code. 
22. If return code is greater than zero, 
issue message DLZ6151. 
= 
message 
writer 
23. Return to caller. 
Caller 
DLZPRABC 
Routine Label Extended Description Routine 





Label 


Wal Jo 4j19d01g—e11938JA] pasusory 


Z uole¢ 


1WBI0dO Jo pomayy 


uor 


$0% - 2 





Figure 2-43.3. Cleanup. 


2. 
COMAREA 

3 
4. 
5. 
6. 
7 fA 
8. 
9. 
10. 
11. 

DLZPRCLN - Cleanup 
Extended Description Routine 


PROCESS OUTPUT 


Get address and length of COMAREA 








and open control. 
Contro!} 
Get address and length of DBT. Contro! 
COMAREA 
Get address and length of SGT. 
Control 
Write SGT to control. 
Get address and length of ACT. 
Write ACT to control. DBT 
Get address and length of RGT. 
Controt 
Write RGT to control. 
Close contro! and retum. 
Caller RGT 
DLZPRCLN 
Label Extended Description Routine Label 
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Figure 2-43.4. DBD Analysis (Part 1 of 2) 


INPUT PROCESS OUTPUT 
Figure 
2-43.14 
DBT 
COMAREA 1. Load data base description (DBD). 
DBT 


OBTHS!Z1 


DMB 
2. Identify data set groups (DSGs) and save 
selected information. 


g 
eee 
COMAREA 
COMAREA 
3. Process segments in the DBD. 
4. Analyze pointers in the segment prefix. 
5. Check the hierarchic pointers and set 
the appropriate fiags. 
SEGTAB 
] 
Dense 





COMAREA 


SGT 


SGT 


SGTGATRI 


SGT 


I 


6. Find physical parent and save the 
physical parent, physical child, and 
sibling offsets. 


COMAREA 
COMAERRS 


> 7. Process LCHDTAB entries. 


DBT 


Oe 


8. Process external data bases and any 
segments in the SGT not in the prime 
reorganization data base. 


lil 


DLZPRDBD — DBD Analysis DLZPRDBD 


Extended Description Routine Label Extended Description Routine Label 


. If DBD is not in core image library, 
issue message DLZ612I. If DBD is 
not HD, issue message DLZ6131. 
If FROMAREA is for HIDAM or 
KEYRANGE is for HDAM, issue 
message DLZ604I. If HI/LO block 
number is not in RAA, issue 
message DLZ6451. 


DLZPRERR 
DLZPRERR 


. If error, issue message DLZ6141. 
Lf error, issue message DLZ618I. 
DLZPRERR 


. If error, issue message DLZ6161, 
DLZ6171I, or DLZ6181. 





Figure 2-43.4. DBD Analysis (Part 2 of 2) 
INPUT 


COMAREA 


COMAERRS —— = 


FLDTAB 


= 


LCHILD 


SEGTAB 










PROCESS 


9. Process segments in related data 
base. 


10. Find target and source segments for 
index entries and other index related 
information. 


TGT 
ra | rr 11. Process the SGT entries. Insert the 
1 proper logical parent prefix offsets 
i for logical child first pointers to the 
1 logical children in the logical children 
SGT 1 segments. 
ee 
COMAREA 12. Process the SGT entries for ali segment 
a | entries in HD data bases. Calculate 
TcT physical child pointer offsets in the 
[=] physical parent segment prefix for 
all physical children segments con- 
SEG tained in SGT. 
TGT 
= 13. Step through the DBD’s SEGTAB and 
[4 find corresponding physical children 
SGT and SGT entries and insert the 
ra | physical child pointer offsets. 
14, Return to caller. 
DLZPRDBD — DBD Analysis 
Extended Description Routine Label Extended Description 


9. If error, issue message DLZ6151. 
11. If error, issue message DLZ6161. 


14, R15 contains the return code. If an 
error message has been issued, R15 
does not equal zero; if an error 
message has not been issued, R15 
equals zero. 





DLZPRERR- 
DLZPRERR 


Cailer 


OUTPUT 


DLZPRDBD 


Routine 
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Figure 2-43.5. PSB Source Generator 
INPUT 


Figure 2-43.6. Report Writer 


PROCESS OUTPUT INPUT Figwe 
2-43.1 


COMAREA 
ia = 1. Generate PSB. eS . Print header for range values. 
= 2. Initialize output PSB map with PSB 
name. COMAREA . If KEYRANGE is present, print 


KEYRANGE values. If KEYRANGE 
GT is not present, print FROMAREA 


values. 
(uep DLZPRWFM 5 
oa | er 


eer 4. Generate PCB for prime data base 
and punch card image. 


L_ 3. Punch ‘PRINT NOGEN’ card image. 


Pl 


| 


—— . Print all TOAREA values for 
KEYRANGE/FROMAREA. 


COMAREA . Loop until there are no more 


RGT entries to process. 


. Print header for the required 
segment to scan. 


= DLZPRWFM COMAREA 





Work file 
manager 


— . If a segment is required to be 
-scanned, print the segment, else 
- print segment not found message. 







COMAREA COMAREA 


5. If prime data base can be scanned, 
generate alternate DBT and PCB 
and punch card images. 


ae 
cae | ese 


. Loop until all SGT entries have 





[i been processed. 
rc . Print header for optional segments 
mae . COMAREA to scan. 
=| 





Coe le ee 








COMAREA <=! . If optional segment to scan print 
segment, else print segment not 


found message. 


6. Loop until PCBs are created for all 
DBT entries. 


l 


COMAREA SGT 


| 


— 7. Punch final cards for PSB. 


= DLZPRWFM 


Work file 
manager : 1 


10. Loop until all SGT entries have 
been processed. 


DBT 


| 


11. Return to caller. 





DLZPRREP — Report Writer ; DLZPRREP 


Label 


8. Return to caller. 


Extended Description Routine Extended Description Routine Label 


all 





DLZPRPSB — PSB Source Generator DLZPRPSB 


Extended Description Label Extended Description Routine Label 





1. If PSB is not generated, issue message {DLZPRERR 
DLZ627I and retum to caller. 
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Figure 2-43.7. PART2 Control 


INPUT 
From 
DL/I 
Load fist 
‘Common ares 
COMAREA 
COMAERRS 
Control 
Co h——4 
COMAREA 





COMAREA | 


= 


DLZPRCT2 - PART2 Control 


DOS/VS GETVIS is issued. If an 


” + error occurs, issue message DLZ6391 
and return. 


If error, issue message DLZ6341 
and return. 


11, 





PROCESS 


Load service modules and save entry 
points. 

Read in COMAREA from control . 
DTF. 


Restore all addresses in the 
COMAREA that are new for 
PART2. 


DL/1 at invocation, into the 
COMMON area for PART2 
processing. 


Print header line on SYSPRINT. 


Link to each phase in PART2. 


Check for error on completion of 
each phase. 


issue completion message and close 
CONTROL, SYSPRT, and SYSIN. 


Retumm to caller. 


Extended Description 


Link list includes: 
DLZPRPAR 
DLZPRURC 
DLZPRSCC 
DLZPRSTC 
DLZPRUPD 


return. 


If error, issue message 
DLZ6361, close data sets, and 


Get storage for CONTROL tables. 
Read CONTROL tabies from 
CONTROL DTF. 

Move PCB addresses, passed by 


Caller 


Issue message DLZ636I. 


OUTPUT 





DLZPRCT2 


Routine 


Label 
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Figure 2-43.8. Parameter Analysis (Part 1 of 4) 
INPUT 


Figure 
2-43.1 
or 
2-43.7 





| 
COMAREA 
~! 


DLZPRPAR ~ Parameter Analysis 


Extended Description 


1, 


2,3,4 Iferror occurs, set RIS not 
equal to zero and PCL (PARM 
Contro! Table) equal to type of 
error. 





JCL 
ae is Os Di 1, Read job controf. 


PROCESS OUTPUT INPUT 


DBT 

2. If KEYWORD=DBNAME, DB=HD, 
and DBD exists, initialize for primary 
DBD. 


il 


R16 


| 


AGT 
3. If KEYWORK=KEYNAME, DB=HIDAM, 
and operand is valid, initialize for CJ 
KEYRANGE. CJ 


R15 


| 


4. if KEYWORD=FROMAREA, DB-HDAM, 


and operand is valid, initialize for 
FROMAREA. 
DLZPRPAR DLZPRPAR - Parameter Analysis 
Routine —_Label Extended Description Routine Label parents Deeinees 


5,7 If error occurs, set R15 not equal 
to zero and PCL equal to type of 
error. 


. If error, issue error message 
DLZ602I. 


. Iferror, issue error message 
DLZ603I. 





Routine Label 





Figure 2-43.8. Parameter Analysis (Part 2 of 4) 


PROCESS ; OUTPUT 


5. If KEYWORD=TOAREA and operand RGT 
is valid, initialize target area. 


COMAREA 


I 


6. If KEYWORD=PSSB initialize for PSB. 


| =) 
CL 
es 
seca 


COMAREA 


7. if KEYWORD=SORTOPT and 
opearand is valid, initialize sort 
options. 


8. If R15 does not equal zero and invalid 
KEYWORD is indicated in PCL, issue 
error message. 


9, If R15 does not equal zero and illegal 
continuation indicated in PCL, issue 
error message. 


DLZPRPAR 


Extended Description Routine Label 
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Figure 2-43.8. Parameter Analysis (Part 3 of 4) Figure 2-43.8. Parameter Analysis (Part 4 of 4) 
INPUT 


PROCESS INPUT PROCESS 





OUTPUT 








. if R15 does not equal zero and 
KEYWORD=FROMAREA for 
HIDAM or KEYWORD=KEYRANGE 
for HDAM is indicated in PCL, issue 
message DLZ604I. 


. I£R15 does not equal zero and no DBD 
exists for the DBNAME specified, issue 
message DL612I. 


COMAREA 


. 4f R15 does not equal zero and 
required KEYWORD missing is 
indicated in PCL, issue message 
DLZ605I. 


. Ef R15 does not equal zero and DBD not 
HD is indicated in PCL, issue message 
DLZ6131. 


. {f R15 does not equal zero and invalid 
KEYWORD in previous statement is 
indicated in PCL, issue message 
DLZ606I. 


Be eee ey pee) 


, If R15 does not equal zero and data set 
specified on TOAREA statement does 
not match DBD, issue message DLZ6141. 


20. If there is more JCL to process, go to 
Step 1. 


. If R15 does not equal zero and 
KEYWORD previously specified is 
indicated in PCL, issue message 


DLZ608I. 21, Return to PART1 or PARTZ2. 


. If R15 does not equal zero and 
KEYWORD=FROMAREA and 
KEYWORD=KEYRANGE is 
indicated in PCL, issue message 
DLZ609I. 


. If R15 does not equal zero and invalid 
operand for KEYWORD is indicated 
in PCL, issue message DLZ6101. 





DLZPRPAR - Parameter Analysis OLZPRPAR 


Extended Description Extended Description Routine Label 


Plenty as on de a ae ee 


. If R15 does not equal zero and more 
than ten ranges are indicated in PCL, 
issue message DLZ6111. 
DLZPRPAR - Parameter Analysis DLZPRPAR 





Extended Description 


Routine 





Wal Jo Ayrodoig—eli9;8 jy] posuaory 


Z uoNDEg 


. 
. 


uoreJedQ Jo pope] 


Iiz@-¢ 


Figure 2-43.9. Scan Control! 


INPUT PROCESS OUTPUT 
Figure : 
2-43.7 


FCB 


Cecaoeur] 


COMAREA 


I 


1. Initialize workfile 2 and workfile 5 with 
put request. 


COMAREA 


COMAREA . 2. If SCAN required, get data base segment. 
ASS 


3. If ‘T’ type record, format an index work 
record (‘XWR’). 


= 


lil 


a 


SGT 


DLZPRWFM 
Work file 
manager 


4. If action required, format a data work DWR 
record (‘DWR’). 


= DLZPRWFM 


I 





COMAREA 


XWR 


lil 








a ae 
DWAR 
es [~ — FP 5. If no more actions for this segment, get 
ree | next segment. 
ae | | [~ ¥°6. Continue processing until end of data. 
: | 
ACT | 
ye (map 
| DLAI services 
COMAREA d 
7. Return to PART2 control. 
Figure 
2-43,7 
DLZPRSCC - Scan Controt DLZPRSCC 
Extended Description Routine Label Extended Description Routine Label! 


If bad return from DL/I, issue 
message DLZ6531. 


If error, issue message 
DLZPR6531. 








Figure 2-43.10. Update Prefix 


INPUT Figure 


2-43.7 


COMAREA 


COMAREA 

FCB 

COMAREA [ 
Cir 

OWR 

COMAREA 

ECB 

COMAREA 

XWR 


DLZPRUPD — Update Prefix. 


ae eee Eanes 
i 


Extended Description 


1. 

2. 

3. Workfile 7, Workfile 3. 

4. If error, issue message DLZ6SOI or 
DLZ6531. 


6. If error, issue message DLZ659I or 
DLZ6531. 


PROCESS 


1. If index only to be updated, go process 
index portion of data base. 


2. Process data portion of data base first. 


3. Read data work records from workfiles. 


4. Process data work records and log 
changes until all are processed. 






5. Read index work records from workfile 
9, 


DLZPRWEM 


Work file 
manager 


6. Process index work records until all 
are processed. 


7. Close all workfiles and return to 
PART2 control. 


Label 


Routine Extended Description 


OUTPUT 


DLZPRUPD 


Routine 


Label 
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Figure 2-43.11. Sort Control (Part 1 of 2) 








Figure 2-43.11. Sort Control (Part 2 of 2) 








INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
_— COMAREA 
: COMAREA ET 5. If SORT4 is required, call SORT with 
index records from SORTS residing 
SS : sopmesT eee on workfile 8 and from the DL/I index 
PC 1. Move user aaa to the SORT maintenance file residing on workfile 
parameter list. SORT4 PLIST 6. 
COMAREA 
2. if SORT 1 is required, call SORT with 
data work records from reload and scan aw) oo" 
residing on workfile 2. 
mp wa 
ee) Garr 
Work File 6. Return to PART2 control. 
tmenager 
COMAREA 
3. If SORT2 is required, call SORT with Haug 
data records from reload and SORT1 2.43.7 
residing on workfile 3. 
ead SORT 
a A 
Work file 
Manager 
GCOMAREA 
4. If SORTS is required, call SORT with 
index word records from reload residing 
on workfile 4 and from scan residing 
sonts rier on workfile 5. 
= sort DLZPRSTC — Sort Controt DLZPRSTC 
=z) Extended Description Routine Label Extended Description Routine Label 
Work file 
manager 4, SORT3REQ 
5. If error, issue message herent : Se TnEO 
: DLZ648I, or DLZ6491. ane SOR’ 
DECERS TO. Sore Control DLZERSTS SORT4 process index work records 
exclusively. Input to SORT3 is from 
: ji reload and scan, and input to SORT4 
Extended Description ; Routine Label Extended Description Routine Label is from the DL/I index maintenance 


file and SORT3. Together these 
routines eliminate index work records 
that are not involved in update, con- 
yert the DL/I index maintenance 
records into partial reorganization 


2,3,4 Iferror, issue message DLZ6471. 


2. 


format, and arrange the index work 
records in physical sequence. 


3. SORT] and SORT2 process data work 
tecords exclusively. Input to SORT] is 
from reload and scan, and input for 
SORT2 is from reload and SORT1. 


Together these routines save the new 
RBA of the segment moved in the 
associated work records and 

them in physical sequence as they exist 
in the data bases. 
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Figure 2-43.12. Unload/Reload Control (Part 1 of 3) Figure 2-43.12. Unload/Reload Control (Part 2 of 3) 
INPUT <= PROCESS OUTPUT INPUT PROCESS OUTPUT 


DLZPRCT2 
COMAREA 


COMAREA 


PRWRKF6 4, If HIDAM, initialize the running 


environment for HIDAM. 


(=m) ASMTDLI 


2. For HDAM, ensure starting ranges 


' ———_— 
| 
[___1 Vina 
are in the root addressable area. 
4 Figure 2-43.14 
5. If unload, process segments within 
apni ecieeerennns 2? 


} 


1. Open PRWRKF6, if closed, for output 
using FCB6. DBT 


aaa 
C—_] 


l 


SGT 


| 


COMAREA 










Workfile manager specified range. 
Figure 2-43.13 


PCBMASK 


COMAREA 


Gaal DLZPRDLI 


COMAREA DLI Services 


3. If HDAM, initialize the running 
environment for HDAM. 





Figure 2-43.14 





ASMTDLI 


=a) ASMTDLIi 


DLZPROLI 


OLI Services 
Figure 2-43.14 


= 


DLZPRWFM 


Workfile Manager 
Figure 2-43.13 





[__] 
eae 
oe 








COMAREA 


6. If reload, read segment dump 

records, pass them to DLI to 
SGT insert into DB, and update 
statistics, 





FCB 


= ASMTDLI 





OLI Services 
Figure 2-43.14 
DLZPRURC — Unioad/Relosd Control DLZPRURC 
Extended Description Routine Label Extended Description Routine Label 
DLZPRURC — Unload/Reload Control DLZPRURG 


1. If error, retum to caller with return Extended Description Routine Label Extended Description Routine Label 
code greater than zero. . . 


. DPRWFMIF is the interface routine 
to Workfile Manager (DLZPRWFM). 
When I/O required, checks return 
code and saves the highest code. 


. DPRDLISV is the interface routine 
to DLI Services (DLZPRDLI). On 
retum, checks the return code and 
saves the highest code. 


4. DPRDLISV is the interface routine 6. DPRDLISV is the interface routine 
to DLI Services (DLZPRDLI). On to DLI Services (DLZPRDLI. On 
return, checks the return code and return checks the return code and 
saves the highest code. saves the highest code. 


Opens data base, sets end process DPRDLERR is the interface routine 
test values in common area, and to Error message writer (DLZPRERR). 
positions DB at beginning of 

range. If error, issue message DLZ6531. 


Open data base, set end process values If error, issue message DLZ6461. 


in common area, check the RGT, and 
position DB at the beginning of the 
range. 


. Unload segment to dump file, free 
space occupied by each unloaded 
segment, and update the statistics 
information for the unload pro- 
cessing. 


If error, issue message DLZ6461. 


DPRDLERR is the interface 
routine to error message writer 
(DLZPRERR). 


If error, issue message DLZ6531. 
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Figure 2-43.12. Unload/Reload Control (Part 3 of 3) 
INPUT PROCESS , OUTPUT 






COMAREA Pp——————"% 7. If HIDAM, retrieve the index pointer COMAREA 
segment, update the index with the 
SGT new RBA of the segment reloaded, 
and log changes. 
FCB 
DLI Services 
Figure 2-43.14 
R16 
8. Set return code and return to cailer. 
Calter 
DLZPRURC — Untoad/Relosd Control DLZPRURC 
Extended Description Routine Labei Extended Description Routine Label 


7, DPRDLISV is the interface module 
to DLI Services (DLZPRDLI). On 
retum, checks the return code and 
saves the highest code. 


If error, issue message DLZ6431 or 
DLZ644I. 
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Figure 2-43.13. Workfite Manager 
INPUT 


bod a ee 


DLZPRWFM ~— Workfile Menager 
Extended Description 
1 


2, 3,4, 5: R7 contains the address of 
the DTF. 





1. If request is not vatid, issue message 
DLZ6151. 


2. If GET request, open data set if not 
already open and retrieve record. 


3. If PUT request, open data set if not 
already open and put out record. 


4. If CLOSE request, issue close. 


5. If OPEN request, issue open. 
6. Return to caller. 





Routine Label Extended Description 


OUTPUT 


Wal J0 Ayzadoig—yeueseyy] pasuaory] 


917-7 


Z BUINJOA TenuBP 91307 SA/SOd 1/14 


Figure 2-43.14, DLI Services (Part 1 of 5) 


INPUT 
Caller 


COMAREA 


OLZPRDLI — DLI Services 
Extended Description 


2. A ‘GU? or ‘GNP’ call must be the last 
regular call to DLI before making this 
request. 


. The call to DLI immediately preced- 
ing this call must have been an ‘ISRT’ 
call to the primary DB. 


. If error, issue message DLZ6361 
ot DLZ615I and branch to SCD 
ABEND routine. 








Routine Label 


PROCESS 


1. If request code is greater than 16, 
set return code and return to caller. 


2. If request code equals 01, get storage 
address of prefix of last segment that 
wes retrieved and return to caller. 


3. if request code equal 02, get storage 
address of an inserted segment and 
return to caller. 


4. If request code equals 03, issue block 


locate. 
== DLZDBHOO 


Extended Description 


OUTPUT 


R15 


COMAREA 


AR 


(ona) 


COMAREA 


DLZPRDLI 


Routine 


Figure 2-43.14. DLI Services (Part 2 of 5) 
INPUT . 








DLZPRDLI — DLI Services 
Extended Description 


. If error, issue message DLZ6361 or 
DLZ6151 and branch to SCD ABEND 
routine. - ‘ 


6. If error, issue message DLZ6361 or 


are Last cll to D1 must have been 2 
‘GU’ or “GN’ for the prime DI 


If error, issue message DLZ6551. 





PROCESS 


5. If request code equals 04, issue 
byte locate. 


Gama DLZDBHOO 


6. If request code equals 05, issue 
byte locate and alter. 


Asap DLZDBHOO 


7. If request code equals 06, get the 
RBA of the last segment that was 
retrieved or inserted by DLI. 


&. If request code equals 07, free space 
that was occupied by a segment that 
is to be unloaded if the segment is a 
HIDAM root with no PTB pointer, 
relink the twin chain from the RAP. 


9. If request code equals 08, find the 
non-zero root anchor point beginning 
at a given block number and retrieve 


the first root segment chained from it. 


Extended Description 


OUTPUT 


OMAREA 


OMAPREF 


COMAREA 


COMRLSEG 


OMAREA 


COMAREA 


coMFWaks | 
comrwrKs | 


OLZPRDLI 
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:Figure 2-43.14. DLI Services (Part 3 of 5) 
INPUT 


COMAREA 


[__] 
(I 


PST 


Eee] 


COMAREA 






[__] 
Ea 
oe 


COMAREA 


cee | 


COMAREA 


eee 


PST 


| 
| 
ed 


on 


Ca] 


DLZPRDLI — DLI Services 


Extended Description Routine Label 


10. Request must follow request type 
Of test prefix address) or request 
oe 05 (byte locate and mark 
buffer altered) or request type 16 
(retrieve index by key). 


. Request must follow request type 09. 
No intervening calls to DLI via the 
language interface or to DLZPRDLI 
are permitted. 


. Processing is done by the compression 
routine. 


. If error, issue message DLZ636I or 
DLZ615I and branch to SCD 
ABEND routine. 


. For each segment to be unloaded, 
determine if it extends the range of 
blocks being unloaded. If it does, 
perform this processing step. 


PROCESS 


10. If request code equals 09, tog data 
before change. 


es DLZRDBLO 


11. If request code equals 0A, log data 
after change. 


dxastp DLZRDBLO 


12. If request code equals OC, compress 
segment processing. 


13. If request code equals OD, mark index 
buffer altered. 


duuse DLZRDBLO 


14, If request code equals OE, update the 
Current range limits. 


Extended Description 


OUTPUT 


COMAREA 


COMAREA 


COMAREA 


DLZPROLI 


Routine 


Label 








Figure 2-43.14 DLI Services (Part 4 of 5) 
INPUT PROCESS 


_————— > 16. If request code equals OF, get 
an ‘EOD’ address. 





o 
ie} 
o 


wn 
oS 
wo 


16. If request code equals 10, move 
addresses of DLJ blocks and 
routines to system data areas and 
set special DLI conditions. 


a= ASMTDLI 


a 
= 


DMBACBXT 


COMAREA 


l 


scD 


If request code equals 11, initialize 
before unloading a range. 


iil 


COMAREA 


I 


JCB 


eae 


DBT 
18. If request code equals 12, initialize 


after unloading a range. 


hil 


COMAREA 


I 


. If raquest code equals 13, initialize 
DBT before reloading a range. 


lil 


DBPCB 


l 


JCB 


| : 


DMBACBX 





I 


“DLZPRDLI — DUI Services 


Extended Description Extended Description 


DLI control block addresses 
are acquired by a GSCD call. 


If error, issue message 


DLZ6511 


OUTPUT 
ENDRAASV 


GCOMAREA 


JCB 


SOB 


DLZPRDLI 


Routine 


Label 
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Figure 2-43.14. DL! Services (Part 5 of 5) 


INPUT PROCESS 


GOMAREA 


| 


SDB 
20. 


iil 


[ 
ae 


| 


I 


COMAREA 


iil 





I 


COMAREA 


————— 

CURRAP ; 
_—————. at. 
[ asicciepeamincnelh ag 


Hil 





OLZPRDLI — OLI Services 


Extended Description Routine 


First call for each range 
must be preceded by 
request 08 for first block 
and anchor point. 


If error, issue message DLZ6361 
or DLZ6151 and branch to SCD 
ABEND routine. 


If request code equals 14, 
initialize after reloading a range. 


If request code equals 15, set 
HDAM root anchor point to 
zero after all roots chained from 
it have been unloaded. 


(= DLZRDLBO 


If request code equals 16, retrieve 
index record by key. : 


: == DLZRDLBO 


Return to caller 


Label Extended Description 





Caller 


OUTPUT 


SDB 


a 


CURRAP 


Next root 
to free 


COMAREA 


OLZPROLI 


Routine 
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Figure 2-43.15. Statistical Writer 


INPUT PROCESS ia OUTPUT 


Calter 
COMAREA 


Cc 


“FCB —— 


CS 


= 


t 


COMAREA 


COMAREA 





COMAREA 


4 
: é 
REE 


hil 


DLZPRSTW ~ Statistical Writer 


Extended Description Routine Label 


- 2. Create unload statistics report, unload! DLZPRWFM 


range report, unload distribution 
report and return to mainline 
processing. 


4, If error, issue message DLZ642I. DLZPRERR 





. Initialize SYSPRT for PUT request. 


2. 


3. If scan is calling function, move sub-header 


FCB 


. : : COMAREA 
If unload is calling function, move 


sub-header to COMAREA. 








DLZPRWFM 


Work file 
manager 


i 


COMAREA 


to COMAREA and create scan report. 


= DLZPRWFM 


Work file 
manager 


4.-1n-not-scan and unload, move sub-header 
to COMAREA, create reload statistics 
report and reload range report. 





COMAREA 


@=> DLZPRWFM 





Work file 
manager 


. Return to cafler. 


Caller 


DLZPRSTW 


Extended Deseription Routine 


Figure 2-43.16. Error Message Writer 


PUT 


COMAREA 


COMAMSGN 


MSGTBLE 





MSGTBLE 


MSGVAR C———__— > 


MSGTBLE 


MSGTFLAG 


DLZPRERR — Error Message Writer 


Extended Description 


Caller 


Routine Label 


“LL 


PROCESS ; OUTPUT 


1. Open SYSPRINT. 


2. Locate message to be printed in the 
message table. Po. od wseaur 


Message 
found 


3. If message is not found, issue dummy 


message. 
MSGBUF 
Message found 








4, Move message found to message buffer. 


5. If variable data, move to message buffer. 


6. Print message and close SYSPRINT. 
7. If ABEND is required, issue JOUMP. 


8. Return to caller. 


Caller 


DLZPRERR 


Extended Description Routine 
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Figure 2-44.1. HLPI (PL/I! Online Control Flow-CICS/VS) 
CICS/VS Program Control Program 


User Application Program 










DFHPCP PROCEDURE; 






(EXEC DLI....) 










DLZEIO1 
CALL {DLZEION ae 







(EXEC CICS RETURN) 










DFHPL1I 


DLZEI01 
DLZEI02 








(CICS EXEC STUB) 
CICS/VS EXEC Interface Program 













DFHEIP 





DL/I Facility 








DLZEIPOO CSECT 
DLZEIP! 





DL/I 
Command 






(Convert HLPI Call to DL/I Call) 










End of 
Call Group 







(Handle Errors) 






BR 14 






DLZPRHOO 






(Process DL/I Call) 


Figure 2-44.2, HLPI (COBOL Online Control Flow-CiCS/VS) 
CICS/VS Program Control Program 


User Application Program 






DFHPCP 






(EXEC DLI....) 








cat} 


DLZEIO1 
DLZEI02\"*"" 


(EXEC CICS RETURN) 












DFHECI 


DLZEI01 
DLZE102 








(CICS EXEC STUB) 
CICS/VS EXEC Interface Program 






DFHEIP 






DL/I Facility 















DLZEIPOO CSECT 


DLZEIPI 






DL/I 
Command 





(Convert HLP! Call to DL/I Call) 










End of 
Cali Group 





(Handle Errors) 






BR 14 






DLZPRHOO 





(Process DL/I Call) 
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Figure 2-44.3, HLPI (PL/I MPS Batch Control Flow) 
Job Control Statements 


// JOB DLIPROG 
e 


e 
// EXEC DLZMPIO0, SIZE= 
DLI,progname,PSBname 

e 


e 
User data 
e 


MPS Batch DL/I Facility 


DLZMP100 CSECT 
° 
e 


DLZMPRH DS 0H 

e 

e 
(Transfer DL/I Call to DL/I Online 
System for Processing) 

e 

e 

BR 14 


DLZMINIT EQuU * 
e 


e 
(Read Parameter Statement) 
e 


e 
(Load User Application Program) 
° 


e 
BALRUSER BALR 14, 15 
e 


e 
DLZMTERM EQU * 
° 
e 

EOJ SVC 14 


User Application Program 


PROCEDURE; 
e 


e 
(EXEC DLI....) 


as 


DLZE!01 
CALL 4 HL ZE102 t Bor 
e 


IBMBPJRA (Linkedited With Application) 
PLICALLB 
e 


° 
(PL/I Initialization) 
e 


e 
{Branch to Application) 


DLZLIPLI (Linkedited With Application) 
e 
t 
OLZEI01 
DLZE102 
e 
e 
(Get ra of DLZEIPBO From A(DLZPRHBO) 
~4 


e 
BR 15 


HLPI Interface Routine (Batch/MPS Batch) 
OLZEIPBO CSECT 
° 
° 
(Handle HLP1 INIT Cali First Time) 
° 
e 
DLZEIPB1 
° 


e 
(Convert HLPI Call to DL/I Call) 
e 


End of 
Call Group 


eY 


e 
(Issue DL/I Call) 


(Handle Errors) 
e 


e 
BR 14 





Figure 2-44.4. HLPi (COBOL MPS Batch Control Flow) 


Job Control Statements 
/{ JOB DLIPROG 
e 


e 
// EXEC DLZMPI00,SIZE= 
DLI,progname ,PSBname 

e 


e 
User data 


MPS Batch DL/! Facility 


DLZMP100 CSECT 
e 


e 
DOLZMPRH DS OH 

e 

e 


(Transfer DL/I Call to DL/I Online 
System for Processing) 
e 
e 
BR 14 


DLZMINIT EQU * 
° 


e 
(Read Parameter Statement) 
e 


e 
(Load User Application Program) 
e 


o 
BALRUSER BALR 14, 15 
e 
e 
DLZMTERM EQU * 
e 


° 
EOJ SVC 14 


User Application Program 


ENTRY ‘DLITCBL’ 
° 


(EXEC DLI....) 


a 


DLZEI01 
cat} Geeewek hae 


DLZBPJRA (Linkedited With Application) 
ENTRY CBLCALLA 
e 


° 
BALR to ILBDSETO (COBOL ENTRY PT.) 


e 
L15,= V (DLITCBL) 
BR 15 


DLZLICBL (Linkedited With Application) 
° 


DLZEI01 


DLZE102 
e 


a 
(Get addr of DLZEIPBO From A(DLZPRHBO) 
-4) 


HLPI Interface Routine (Batch/MPS Batch) 
DLZEIPBO CSECT 
e 
e 
(Handle HLPI INIT Call First Time) 
e 


e 
OLZEIPB1 

e 

e 


(Convert HLPI Call to DL/I Call) 
e 
e 


End of 
Call Group 


oY 
e 
{Issue DL/I Call) 


(Handle Errors) 
e 


e 
BR 14 
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Figure 2-44.5. HLPI (PL/I Batch Control Flow) 
Job Control Statements 


/{ SOB DLIPROG 
e 


e 
// EXEC DLZRRCOO,SIZE = 
DLI ,progname ,PSBname , buffers 
; e. 


° 
User data 





Batch DL/I Initialization 


DLZRRCOO CSECT 
e 


e 
(Read Parameter Statement) 
e 


DLZRRC10 CSECT 
e 


e 
(Load DL/! Facility) 
e 
e 
(Load User Application Program) 
e 
° 
BALRUSER BALR 14, 15 
e 


e 
EOJ SVC 14 





DL/I Facility (DLZBNUCO and Action Modules) 


SCDCSECT CSECT 
DLZPRHBO DS OH 
e 


° 
(Process DL/1 Call) 
° 


o 
BR 14 





User Application Program 


PROCEDURE; 
° 


e 
(EXEC DLI....) 


ws 


DLZEIO1 
cate | DLZEI02 t ear 
e 


e 
RETURN; 


IBMBPJRA (Linkedited With Application) 
PLICALLB 
. 


s 
{PL/I Initialization) 
e 
e 
(Branch to Application} 


DLZLIPLI (Linkedited With Application) 
OLZLIPLI 
e 
e 
DLZEI01 
DLZEIO2 
e 


e 
(Get addr of DLZEIPBO From A(DLZPRHBO) 
-4 


HLPI Interface Routine (Batch/MPS Batch) 
DLZE!PBO CSECT 
e 
e 
(Handle HLPi INIT Call First Time) 
e 
e 
DLZEIPB1 
e 


e 
(Convert HLPI Call to DL/I Cali) 


oY 


e 
{Issue DL/t Cail) 


(Handle Errors) 
e 


e 
BR 14 





Figure 2-44.6. HLPI (COBOL Batch Control Flow) 


Job Control Statements 


User Application Program 































/1 JOB DLIPROG 
: ENTRY ‘OLITCBL’ 


// EXEC DLZRRCOO, SIZE= 
DLI, progname, PSBname, buffers 


(EXEC DLI....) 


4 


LZEI01 


User data @ 
: D enae 
CALL 4 DLZEI02 





Batch DL/I Initialization GOBACK . 


DLZRRCOO CSECT 
: DLZBPJRA (Linkedited With Application) 


(Read Parameter Statement) ENTRY CBL CALLA 


BALR to ILBDSETO (COBOL ENTRY POINT) 


f 


L 15,=V(DLITCBL) 
BR 15 


DLZRRC10 CSECT 


(Load DL/! Facility) 





(Load User Application Program) 





DLZLICBL (Linkedited With Application) 


DLZEI01 


BALRUSER BALR 14, 15 
: DLZE102 


EOJ SVC 14 





(Get Addr of DLZEIPBO from A(DLZPRHBO)-4) 


BR 15 





HLPI Interface Routine (Batch/MPS Batch) 
DLZEIPBO CSECT 


DL/I Facility (DLZBNUCO + Action Modules) 


SCDCSECT CSECT 
DLZPRHBO DS 0H 













: (Handle HLPI INIT Call First Time) 
(Process DL/I Cail) ‘ 


Sa +4 DLZEIPB1 


(Convert HLPI Call to DL/I Call) 






End of 
Cali Group 





TY 
{Issue DL/I Call 


(Handle Errors) 


BR 14 
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Figure 2-45.1. DL/I Batch/MPS EXEC Interface (Initialization Routine) Figure 2-45.2. DL/I Batch/MPS EXEC Interface (Contro! Block Initialization ) 


INPUT PROCESS OUTPUT tNPUT PROCESS OUTPUT 
1. If system DIB is available, go to Step 1, 
oe Figure 2-45.3. 
——. & +11. Get address of EXEC DL/I argument 5 ; oi RO 
list. Calculate storage requi ‘or system 
al az 
OLZHLPIL 
Lo, 2. Get address of user DIB. 3. Acquire storage for the system DIB. 
R15 
Location 20 iy ———— 4. If storage request is unsuccessful, go to 
4 3. Get COMREG address. 6. 
|COMREG 4 | Step 1, Figure 2-45.5. =e 


DLZSDIB 





COMREG+16 
4. Get address of DL/! program request 5, Save system DIB address. 
handler. Pe [ere 


5. Get address of EIP parameter list. 


6. Initialize system DIB with DIB ID. (een 


i ——— > 6. Get address of system DIB. ern OO a ———— 
7. Go to Step 1, Control Block ———— 7. Save PCB address list in system DIB. ea | 


Initialization. DLZSDIB 


Figure 8. Calculate number of PCBs and save 


OLZEIPL 


count in system DIB. 
RO 


9. Calculate storage required for the path a 
header control blocks. 


10. Acquire storage for path header 
control blocks. 


CJ ——- 11. If storage request is unsuccessful, go to 
Step 1, 2-45.5. 


DLZSDIB 
12. Save address of path header contro! DIBPATHP 
blocks in system DIB. 
DLZEIPBO —- DL/I Batch/MPS EXEC interface {Initialization Routine) DLZEIPBO DBLZARGO DLZEIPL 
ate : —-——-— 13. Set PL/I indicator if application 
Extended Description Routine Label Extended Description Routine Label coun 4 anitenin PCA. 
1. Address of the HLPI parameter list is DLZEIPI 
passed to this program in register 1. —_ 
5. Address of the EIP parameter list is 2-46.3 
located 4 bytes in front of entry 
. point for the DL/I program request DLZEIPBO - DL/I Batch/MPS EXEC Interface (Control Block Initialization) DLZEIPBO 
handlet. 
Extended Description Routine Label Extended Description Routine Label 


. DOS/VS GETVIS issued. 10. DOS/VS GETVIS issued 


Return code is in register 15. 


. Return code is in register 15. 


Required storage address is 
returned in register 1. 


Bit APPLPLI is set in field 
ARGOFLG3. 


. Acquired storage address is retumed 
in register 1. 


. Scan is made down the PCB list. 


. Number of PCBs X length of one 
path header control block. 
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Figure 2-45.3. DL/t Batch/MPS EXEC Interface (Call Determination Routine) 
INPUT PROCESS 
DEZSDIB 


1. If system DIB is destroyed, go to Step 
1, Figure 2-45.4. 


DIBID a 


DLZARGO 


2.-1f current call is not an initialization 
call, go to Step 1, Figure 2-45.7. 


=e 
3. Save current user DIB in system DIB. 
R13 


Po 4. Restore caller's registers. 
5. Returm to caller. 


OLZEIPBO — DL/I Batch/MPS EXEC Interface (Calf Determination Routine) 


Extended Description Routine Label Extended Description 


“1. The first eight bytes of the system 
DIB are checked for ‘DLZSDIB’. 


Caller 


OUTPUT 


DLZSDIB 


[oiptuols | 


DLZEIPBO 


Routine Label 








Figure 2-45.4. DL/l Batch/MPS EXEC Interface (ABEND Routine) 
INPUT PROCESS OUTPUT 


DLZARGO 


_——_—_— @ 1. Set up parameter list for message DLZ0371. 


R13 
2. Set Register 13 with register save area | 
DLZEIPL address. ie 
3. Get address of DL/I message module. 
4. Call DL/I message module to issue 
DLZEIPL ae 
R15 
—____4 5. Get address of DL/I ABEND module. eke 
6. Exit DL/I ABEND module to abnormally 
terminate the task. 
BR RIS 
DLZEIPBO — DL/I Betch/MPS EXEC Interface (ABEND Routine) DLZEIPBO 
Extended Description Routine Label Extended Description Routine Label 


1. Message parameter list is composed DIBABEND 
of the message number, status code 


‘TN’, and failing statement number. 
2. 


4, Batch = ERRORMSG 
MPS DLZMMSGX 


5. Batch = DLZABEND 
MPS 


DLZMABNX 
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Figure 2-45.5. DL/I Batch/MPS EXEC Interface (Storage Failure Routine) Figure 2-45.6. DL/I Batch/MPS EXEC Interface (Load Failure Routine) Se 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT c 
18 . | 
a Se 1. If return code is not PHASE NOT a 
1. Set failing macro 1D in message para- FOUND, go to Step 3. & 
meter list. Ks 
R15 R1 
ae 2. Get return code passback. 2. Set up to issue message DLZ0111. C._] é 
3. Translate the return code to printable 3. Set failing macro ID in message oe 
characters. : parameter fist for DLZ038I. ie 
4. Set translated return code in message Step 2, ay 
parameter list. 2.45.4 5 
5, Set message number in parameter at 
list for DLZ038!. = 
= 
= 
2) 
Step 2, K 
2-45.5 
Step 2, 
2-45.4 
DLZEIPBO — DL/! Batch/MPS EXEC Interface (Storege Failure Routine) DLZEIPBO DLZEIPBO — DL/! Batch/MPS EXEC Interface (Load Failure Routine) DLZEIPBO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Extended Description Routine Label 


1. Failure on GETVIS. 


2. 





STRABEND 


Label 
LOADFAIL 
ABENDFX 
GETFAIL 





1. PHASE NOT FOUND return 
code = X‘14’ : 
3. Failure on CDLOAD. 


90T—C 
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Figure 2-45.7. DL/I Batch/MPS EXEC Interface (DLZEIPB1 Exit Routine) 
INPUT PROCESS OUTPUT 


OLZSDIB 
DIBEIPAD =e 1. If DLZE!PB1 is already in storage, go to 
eae: 
.2. Get address.of module DLZEIPB11 .- R 
name, f7 
3. Load module DLZEIPB1. 
= 4. If fail load Step 1 
oe . If failure on , go to Step 1, 
aes . Figure 2-45.6, 
: DLzsoIB 
1 
fy 5. Save entry point address for DLZEIPB1. 
DIBEIPAD 
6. Restore caller's register save area a 
pointer. ee | 
Exit to 
DLZEIPB1 
DLZEIPBO - ODL/I Batch/MPS EXEC Interface (DLZEIPB1 Exit Routine) DLZEIPBO 
Extended Description Routine Label Extended Description Routine Label 


GETFNCAL 
LOADEIP 
. DOS/VS CDLOAD issued. 


. Entry point address of DLZEIPB1 
returned in register 1. 


. Control will be returned directly to 
the caller by DLZEIPB1. 
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. Figure 2-46, DL/I Batch/MPS EXEC Interface (Overview) (Part 1 of 2) Figure 2-46. DL/I Batch/MPS EXEC Interface (Overview) (Part 2 of 2) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


1. Cail Determination Routine. 
(See Figure 2-46.1) 





13. Path Segment Length Verification. 
(See Figure 2-46.13) 


PCB Processing Routine. 


(See Figure 2-46.2) 14, Get EIP Common IOAREA. 


(See Figure 2-46.14) 


Segment Length Verification. 


(See Figure 2-46.3) 15. Build EIP Common IOAREA. 


(See Figure 2-46.15) 


Segment/Offset Length Verification. 


(See Figure 2-46.4) 16. SCHD, TERM, and CHKP Processing. 


(See Figure 2-46.16) 


Replace/Get Path Processing. 


(See Figure 2-46.5) 17. DL/I Program Request Handler 


Interface. 


Acquire SSA Storage. (See Figure 2-46.17) 


(See Figure 2-46.6) DL/! Return interface. 


Load Call Check Routine. (See Figure 2-46.18) 


(See Figure 2-46.7) Get Path Call Processing. 


Command Code Processing. (See Figure 2-46.19} 


(See Figure 2-46.8) 


Variable Length Segment Check. 
(See Figure 2-46.20) 


Field Qualification Routine. 
(See Figure 2-46.9) 


SSA Appendage Processing. 
(See Figure 2-46.10) 


ABEND Routine. 
(See Figure 2-46.20) 


Storage Management Error Routine. 


Calculate IOAREA Size. (See Figure 2-46.22) 


(See Figure 2-46.11) 


Single IOAREA Processing. 
(See Figure 2-46.12) 





DLZEIPBE — DL/i Bateh/MPS EXEC Interf 
te interface DLZeIrBt DLZE!IPB1 — OL/I Batch/MPS EXEG Interface DLZEIPEI 


t Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine 


eal 
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Figure 2-46.1. Call Determination Routine 


INPUT 
Caller 


R13 ; 


os | coe st 


OLZHLPIL 


HLPIOIBP Ce 


DLZARGO 


[arcornco ] -— — 


DLZARGO 


[aramenn ||} —— 3p 


DLZARGO 


\U 


ARGOCCOD —_—— B 


1. 
2. 


PROCESS 


Initialize task register. 


Save HLPi parameter list pointer and 
caller's register save area address. 


Get address of user DIB and save it in 
system DIB. 


Clear user DIB. 


Set address of DL/I parameter count in 
DL/I call parameter list. 


If not a data base call, go to Step 1, 
Figure 2-46.16. 


If not first HLPI call, go to Step 1, 
Figure 2-46.3. 


lf IOAREA specified for this call, go to 
Step 1, Figure 2-46.2. 


Set user DIB with AB status code. 


Figure 
Step 22 


OUTPUT 


DLZSDIB 


DIBHLPIA 





DIBRBKUD 


DLZspDI8 


DIBLUDIB 


DLZSDIB 


DIBCNTAD 


OLZDIB 


INPUT 


_ Figure 2-46.2. PCB Processing Routine 
246.1 PROCESS 





1. 


Reset necessary fields in system DIB. 


Get PCB number specified for this call. 


If PCB number is zero, negative value, 
or greater than the number of PCB for 
the PSB, set TP status code and go to 
Step 1, Figure 2-46.21. 


Save current PCB number in system 
DIB. 


Get PCB address for this call. 


Store PCB address in DL/I call 
parameter list. 


Update DL/I call parameter count to 
include the function call and PCB 
address. 


OUTPUT 


DLZSDIB 


| prapatc | 


DIBCOUNT 


DIBPARM1 





DtZSDIB 


DLZSDIB 


DIBPARM2 


DLZSDIB 


[biscounr] 


Figure 
2-48 
Step 3 


DLZE!PB1 - DL/I Batch/MPS EXEC Interface DLZEIPB1 DLZEIPB1 


DLZEIPB! - Di/t Batch/MPS EXEC interface 


Extended Description Routine — Label Extended Description Routine Label Extended Description Routine —_Label Extended Description Routine —_—Label 


On the first HLPI call for each 
EXEC DLI statement the path 
count, current required 
IOAREA size, the DL/I 
parameter count are set to 
binary zeroes and the DL/I 
function-call is set in the 
DL/I call parameter list. 


FRSTIOOK 


User DIB set to binary zeroes 
except for verison. 


Data base calls as defined here are 
get, insert, replace, delete, and 
load. Using the PCB number, index SETPCBPR 
into the PCB list for the 


The first call for an EXEC DLI current PCB address. 


statement passed is actually the 


call for the object statement. 


Bit CCINFROM on in byte 
ARGOCCOD. 


AB status code = statement IOAREA 
required for object segment. 
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Figure 2-46.3. Segment Length Verification 
PROCESS OUTPUT 


INPUT 2-46.2, 
2.46.2 
DLZARGO 


-ARGOCCOD) S 


DLZARGO 


oo 


DLZARGO 


ARGOSOPT as 


OLZHLPIL 


-+ 


DLZEIPBt - DL/I Batch/MPS EXEC Interface 
Extended Description 
1. Bit CCINFROM on in’byte- ARGOCCOD. 


2. Acount is kept for each call that has 
requested data transfer for the EXEC 
DLI statement. “7 3 


3. Bit OPTVAR on in byte ARGOSOPT. 


4. Bit OPTSEGL on in'byte ARGOSOPT. 
5. Field HLPILIOA contains a pointer 


to the segment length. 


Routine 





If data is not to be transferred, go to 
Step 22, Figure 2-46.4. 


DLzspDIB 
Update data transfer count and save in 
the system DIB. 
If this is a variable length segment, go to 
Step 1, Figure 2-46.4. 
If segment length not specified, go to 
Step 22, Figure 2-46.4, 
Get segment length. 
If segment length is zero or a negative 
value, set V2 status code. Go to Step 1, 
Figure 2-46.21. 

Figure 

2-46.4 

Step 19 

DLZEIPB1 
Label Extended Description Routine Label 


FXSGSIZE 
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Figure 2-46.4. Segment/Offset Length Verification (Part 1 of 3) Figure 2-46.4. Segment/Offset Length Verification (Part 2 of 3) 


INPUT PROCESS OUTPUT ge INPUT PROCESS OUTPUT 
2-46.3 
DLZHLPIL j DLZARGO 
_———q, 1. Get address of the segment IOAREA _— = 9. If this is not a get call, go to Step 12, 
ress. i : 
DLZARGO : 10. Get segment length and go to Step 19. 
> 2. If offset is not specified, go to Step 13. 
DLZHLPIL [ ARGOFNCD] —~— > 11. If this is a get call, set V2 status code 
: {Anon and go to Step 1, Figure 2-46.21. 
_—_—____.> 3. Get offset value. 
: 12. Compute length of the segment and go 
4. If offset value is zero or a negative value, ; to Step 15. 
set up V5 status code and go to Step 1, 
Figure 2-46.21. 


9 
N 
3 
8 


— — -B> 13. If this is a get call, go to Step 4, 
ARGOSOPT > 5. If maximum statement length is not Figure 2-46.3. 


ax sy 
Speritiad, $o-00 Sp 7) 14. Get length of variable length segment. 


DLZHLPIL 
15. If segment length is greater than the 
———_—— _ > 6. Get maximum segment length. maximum length supported, set V4 
status code and go to Step 1, 
7. tf maximum segment length if zero or a Figure 2-46.21. 
negative value, set V2 status code and gos f 
to Step 1, Figure 2-46.21. loLzarco 
8. If offset value is greater than segment ——-p 16. If maximum segment length is not 
length, set V5 status code and go to Step specified on HLPI call, go to Step 19. 
1, Figure 2-46.21. 
DLZHLPIL 
}pa__——-4, 17. Get maximum segment length. 
18. If segment length specified in IOAREA 
is greater than maximum segment length, 
set V4 status code and go to Step 1, 
Figure 2-46.21. 
_ DLZEIPB! - DL/I Batch/MPS EXEC Interface DLZEIPB1 
OLZEIPB1 — DL/I Batch/MPS EXEC Interface DLZEIPB1 
_ Extended Description Routine Label Extended Routine Label : 
Extended Description Routine Label Extended Description Routine Label 


VRSGSIZE 


Bit OPTOFF not on in byte 
ARGOSOPT. 


Field HLPIOFST contains a pointer 
to the OFFSET value. This value is 
the length of the concatenated key 
plus the length of the intersection 
data (If any). . 


9. This check is made for ali get type 
call GN, GU, and GNP. 


it. 


| 12. This length includes the concatenated 
; key, intersection data, and the segment. 


Field HLPILIOA contains a pointer 
to the segment length. 


y 13. 


14. This length is in the first two bytes of — 
the segment IOAREA. 





. Bit OPTSEGL not on in field 
ARGOSOPT.. 


. Field HLPILIOA contains a pointer to 
maximum segment length. 
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Figure 2-46.4. Segment/Offset Length Verification (Part 3 of 3) 
INPUT PROCESS dea 
OLZSDIB 
———-—, 19. Get current length required for IOAREA. 


20. Update current required IOAREA length 


with this segment fength. 
DLZSDIB 
21. Save updated required IOAREA length. 
DLZARGO 
22. If segment name is specified go to Step 
1, Figure 2-46.5. 
DLZARGO 
23. If call is not a get next type, set AH 
status code and go to Step 1, Figure 
2-46.21. 
* DLZHLPIL, [¥————-—“8._ 94, Set segment IOAREA address in DL/I peso 
Figure 2-46 
Step 5 
DLZEIPB1 — DL/I Batch/MPS EXEC Interface DLZEIPB1 
Extended Description Extended Description Routine Label 


19. 
22. Bit OPTSEGM on in field ARGOSOPT. 
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Figure 2-46,5. Replace/Get Path Processing (Part 1 of 3) Figure 2-46.5. Replace/Get Path Processing (Part 2 of 3) 
INPUT 2-464 PROCESS OUTPUT INPUT PROCESS OUTPUT 
DLZsDIB DLZSSAP DLZSSA 
ingore 1. Do calculations to get the correct path — —-f 3. Reconstruct the SSAs and SSA 
DIBSSAS header control block for current PCB. appendages for the get path call. 
DLZHLPIL 





a ————*, 9. Get current HLPi call segment name. 





DLZPATH 
2. Get path SSA appendage pointer. DLZSSA 
casecnm _ | — — By 10. If segment name does not exist in the 
3. If path SSA appendage does not exist reconstructed SSAs, go to Step 21. 
or if previous call was not a get path 
call, go to Step 1, Figure 2-46.6. DLZSSS 
— —- 11. If SSA entry was previously processed 
SSAFLAG _| P " 
set AC status code and go to Step 1, 
DLZSDIB Figure 2-46.21. 
4. Reset get path call indicator in system : 
DIB. a SA 
DLZARGO ee 12. Set SSA processed indicator. 
= abt Led i Hot 8 sapiens call go toi stp — 5 13. If path is not to be transferred for 
1, Figs 2466. this call, go to Step 1, Figure 2-46.12. 
DLZARGO 
LN 
__ — 6. If this is not the first HLPI call for the mics spit ay oe 
DLI EXEC statement, go to Step 9. SSA : . If data was not transferred on previous 
DLZEpIB get path call, go to Step 21. 
7. Reset system DIB with previous get : DLZARGO. 
Pat) cae erat ——-—p& 15. If current segment is not variable 
length, go to Step 18. 
: DLZEIPB1 — DL/t Batch/MPS EXEC Interface DLZEIPB1 ; DLZEIPB1 — DL/i Batch/MPS EXEC Interface DLZE!PBI 
Extended Description Routine Label Extended Description _ Routine Label Extended Description Routine Label Extended Description Routine Label 





“f= 1. Current PCB number-1 x length of the STARTSSA 8. SSAs are reconstructed with segment 
path header control block. name, n command code, and blank 
delimiter. 
4] 4. Bit DIBGPATH set ON in field 
: DIBSFLAG. . 9. HLPISEGN contains a pointer to the 
i segment name. 
. If the previous call was a get path call 
and current call is a replace call and 5 
y this is the first HLPI call for the DLI ; 
EXEC statement, the SSAs-and SSA . Bit SSAPROC not set in field 
appendages are reconstructed based ‘ SSAFLAG. 
4 on the get path call. 
. Bit SSAPROC set ON in field 
SSAFLAG. This is done to ensure 
; duplicate segment names are not 
i specified in current call. 
. Bit CCINFROM not on in field 
i ARGOCCON. 
. Bit SSADATAT not on in field 
SSAFLAG. 
. Bit OPTVAR not on in field 
ARGOSOPT. 
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Figure 2-46.5. Replace/Get Path Processing (Part 3 of 3) 
INPUT PROCESS OUTPUT 


ess 16. If variable length segment was specified 
on previous get path call, go to Step 1, 
Figure 2-46.8. 


17. Go to Figure 2-46.21. 


18. If variable length segment was specified 
DLZHLPIL on previous call, go to Figure 2-46.21. 


19. Get address of segment tength. 


— — —§> 20. If replace lengths are equal go to Step 1, 


Figure 2-46.8. DLZDIB 
21. Set TO status code in user DIB. 
22. Go to Step 1, Figure 2-46.21. 
Figure 2-46 
Step 21 
DLZEIPB1 — DL/I Batch/MPS EXEC Interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


16. Bit SSAVARL on in byte SSAFLAG. 
18. 


19. HLPILIOA contains a pointer to the 
segment length. 


21. Status code ‘TO’ indicates replace/ 
get path calls inconsistent. 
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Figure 2-46.6. Acquire SSA Storage 


INPUT PROCESS 


2-465 
DLZARGO 


ARGORELN Share 1. 


2. 
3. 
4. 
5. 
6. 
RO 
ace ee 7. 
RI6 
ee oe 
RI 


9. 


10. 


DLZEIPBT - DL/t Batch/MPS EXEC Interface 
Extended Description 


Relative call number in field 
ARGORELN is one. 


The first HLPI call for the EXEC 
DLI statement is for the object 
segment. 


DOS/VS GETVIS issued. 


The SSA pointer area in the DLI 
PARM.-list in the system DIB where 
the SSA pointer stored is dependent 
bar the relative number of the HLPI - 


Field HLPISGM contains a pointer 
to the segment name. : 





If this is not the first call for the EXEC 
DLI statement, go to Step 3. 


Move segment name to the user DIB, 
Get length of the largest possible SSA. 


If storage has not been acquired for the 
SSA, go to Step 7. 


Clear the SSA to binary zeroes. 
Go to step 10. 


Acquire storage for the SSA. 


If error on GETVIS, go to Step 1, 
Figure 2-46.22. 


Save SSA address. 


Move the segment name to the SSA. 


£xtended Description 


2-46.7 


OLZDIB 


DLZSDIB 


[oreranmx | 


al 


OLZEIPB1 


Routine Label 





Figure 2-46.7. Load Call Check Routine 
(NPUT PROCESS 
2-466 


DLZARGO 


—— re ee mrs 


2. Get EIP parameter list address. 


3. If this is an MPS environment, set up 
AD status code and go to Figure 


2-46.21. 
DLZSDIB 


=~" ‘4. Get addi f . 
oe 


DBPCB 


[oercero | — — —- 5. !f PROCOPT not load, set up TP 
: status code and go to Step 1, Figure 


2-46.21. 


6. Move blank delimiter to SSA. 


DLZEIPB1 — DL/i Batch/MPS EXEC Interface 


Extended Description Routine Label 


1. Function code not equal to X‘18’. 


2. The EIP parameter list address is 
stored four bytes in front of the 


entry point of the DLI program 
request handler. 
4. 


5. PCB processing option must be 
‘L or ‘LS’. 


6. 


Extended Description 


OUTPUT 


DLZSSA 


DLZEIPB1 


Routine 
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Extended Description Routine Label 


Figure 2-46.8. Command Code Processing (Part 1 of 3) 
INPUT 


PROCESS 





2-46.65 


1. Set command code indicator in SSA. 


DLZARGO 2. Set for null command code. 


—— 3. HH this is nota replace call, go to Step 6. 


OLZARGO 


-__— 4, \ data to be transferred for this call, go to 
Step 1, 2-46.9. . 


5. Set ‘N’ command code in SSA. 


DLZARGO 


aa 6. If this is not an insert cali, go to step 15. 


= 7. \f data is not to be transferred, go to 
Step 9. 


8, Set ‘D’ command code in SSA. 


DLZARGO 


— — Sb 9. If first was not specified for this call, go 
to Step 12. 


OLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description 


Command code indicator is an CONTSSA 


astrisk (*). 


Null command codes are 
dashes (-). 


Replace call code equals X‘14’. 


Bit CCINFROM on in byte 
ARGOCCOD. 


‘N’ command code indicates that 
this segment is not to be 

teplaced. 

Function code is not equal to X‘12’. CKCCISRT 


Bit CCINFROM not on in byte 
ARGOCCOD. 


‘D’ indicates multiple insert path 
call. 


Bit CCFIRST. not on in byte 
ARGOCCOD. 


Figure 
2-46.9 


OUTPUT 
OLZSSA 


SSAASTRK 


DLZSSA 


DLZSSA 


SSACMND 


DLZSSA 


SSACMND _| 


DLZEIPBI1 


Routine 





Label 





ARGORELN 





Figure 2-46.8. Command Code Processing (Part 2 of 3) 
INPUT PROCESS OUTPUT 


10. 
DLZARGO 1. 
: ARGOFNCD > 12, 
13. 
14, 
DLZARGO 
‘ 1 
DLZARGO 
16. 
> 
17. 
DLZARGO 
= > 18. 


DLZARGO 
19. 


\V/ 


DLZEIPB1 - DL/i Batch/MPS EXEC Interface 
Extended Description Routine 


‘F’ indicates start with the first 
occurrance of this segment type 
to satisfy this level of call. 


Bit CCLAST not on is field 
ARGOCCOD. 


‘L’ indicates use last occurance 
of segment type to satisfy this 
level of call. 


Function code is not in range of 
X10’ and X‘0A’. 


Bit CCLOCKED not on in byte 
ARGOCCOD. 


‘QA’ indicates to lock segment(s) 
returned to prevent modification 
by another task. 


DLZSSA 
Set ‘F’ command code in SSA. 
Go to Step 1, Figure 2-46.9. 


If last was not specified, go to Step 1, 
Figure 2-46.9. 


Set ‘L’ command code in SSA. 





Go to Step 1, Figure 2-46.9. 


If this is not a get call, set up AD 
status code and go to Step 1, Figure 
2-46.21. 


If locked not specified, go to Step 18. 


DLZSSA 


DLZEIPB1 


Move ‘QA’ command code to SSA. 


If data is not to be transferred, go to 
Step 21. 


If this is object segment, go to Step 21. 


Label Extended Description Routine Label 


CKCCLSTI 





Wl Jo Ajs9do1g—jeiz9,8 JQ] pasuaory] 


9€7 -Z 


Z SUINJOA enue 807 SA/SOC I/Td 





Figure 2-46.8. Command Code Processing (Part 3 of 3) 


INPUT 


[arcoceoo If — — 


ARGOCCOD ee 


DLZEIPB1 - DL/I Batch/MPS EXEC Interfece 


- Extended Description 


PROCESS OUTPUT 
OLZSSA 
‘20. Set ‘D‘ command code in SSA. 
21. If first not specified in call, go to Step 24. 
DLZSSA 
22. Set ‘F’ command code in SSA. 


23. 


> 24, 


25. 


Routine 





Go to Step 1, Figure 2-46.9. 


If last not specified, go to Step 1, 
Figure 2-46.9. 
DLZSSA 

Set ‘L’ command code in SSA. 

Step 1 

Figure 

2-46.9 

DLZEIPB1 
Label Extended Description Routine Label 
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Figure 2-46.9. Field Qualification Routine 


INPUT PROCESS 
2-468 


1. Hf where is specified, go to Step 4. 





2. Set blank delimiter in SSA, 
3. Go to Step 1, Figure 2-46.10. 


4. Set left paren in SSA. 


OLZHLPIL 


HLPIFLON 


5. Move field name and relational 





operators into the SSA. 
DLZARGO , 
> 6. If field length is not specified, set up V3 
status code and go to Step 1, Figure 
2-46.21. 
DLZHLPIL 


HLPIFLDV. 
HLPILFLD, 


7. Get field value and the value length. 





8. If field length is zero or a negative value, 
set up V3 status code and go to Step 1, 
Figure 2-46.21. 


9. Move the field value and the right paren 
to the SSA. 


DLZEIPB! - DL/t Batch/MPS EXEC Interface 
Extended Description Routine —_ Label Extended Description 
Bit OPTWHERE set on in byte 
ARGOSOPT. 
Blank indicates unqualified SSA. 
Left paren indicates qualified SSA. 
Field HLPIFLDN has a pointer to 
the field name and HLPIOPER * 
has a.pointer to the relational 
operators. 


Bit OPTFLDL not on in byte 
ARGOSOPT. 


Field HLPIFLDV is a pointer to the 
field value.and HLPILFLDis:a 
pointer to the field value length. 


. Right paren is delimiter for 
qualification of SSA. 





Figure 
2-46.10. 


OUTPUT 


DLZSSA 


SSALPARN 





SSAFLDNM 


DLZSSA 





DLZEIPB1 


Routine 


Label 
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Figure 2-46.10. SSA Appendage Processing (Part 1 of 2) 


INPUT 
2-46.7 

DLZARGO 

ARGOCCOD —— 
DLZHLPIL 

aLpisioan | LS 
DLZARGO 

ARGOSOPT 
OLZHLPIL 

HLPIOFST a 
OLZARGO 


ARGOFNCD 


DLZEIPB1 - DL/} Batch/MPS EXEC Interface 


Extended Description 


. Bit CCINFROM not on in byte 
ARGOCCOD. 


. Field HLPISIOA contains the 
address of the segment I/O area. 


. Bit SSADATAT indicates data transfer 
in the SSA appendage. 


. Bit SSAVARL in the SSA appendage 
indicates variable length segment. 


. Bit OPTOFF not on in byte 
ARGOSOPT. 


. HLPIOFST contains a pointer to the 
offset. 





PROCESS 


OUTPUT 
DLZSDIB 


DiIBCOUNT 


1, Update DL/I parameter count to 
reflect this SSA entry. 


2. if data is not to be transferred, go to 
Step 1, Figure 2-46.11. 


3. Get segment IOAREA address. 


DLZSSA 
4. Save segment IOAREA address in SSA 
appendage and set data transfer indicator. 4 
5. If fixed length segment, go to Step 13. 
DLZSSA 
6. Set variable length segment indicator 
in SSA appendage. 
7. Hf offset is not specified, go to Step 12. 
DLZSSA 
8. Set offset in SSA appendage. 
9. If this is a get call, go to Step 13. 
DLZEIPB1 
Routine Label Extended Description Routine Label 








Figure 2-46.10. SSA Appendage Processing {Part 2 of 2) 


INPUT PROCESS OUTPUT 
RS 
10. Compute the length of the concaten- [a 
ated key, intersection data, and 
destination parent. 
11. Go to Step 16. 
ad 
DLZARGO 
ease! 12. If this is not a get call, go to Step 15. 
DLZARGO 
—_-— 13, If segment length is not specified, go 
to Step 1, Figure 2-46.11. 
DLZHLPIL 
i ————X,_ 14. Get pointer to segment length. 
R5 
15. Get segment length. pgp = | 
DLISSA 


16. Save segment length in SSA appendage. 


DLZEIPB1 - DL/i Batch/MPS Interface 


Extended Description Routine Label 


FIXSEGL 


Bit OPTSEGL not on in byte FIXSEG 


ARGOSOPT. 


HLPILIOA contains a pointer to the 
segment length. 


SETSEGLN 
SETLNCIS 





SSALIOA — : 


Step 1, 
Figure 
2-46.11 


DLZEIPB1 


Extended Description Routine Label 


Bill 
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Figure 2-46.11. Calculate IOAREA Size | Figure 2-46.12. Single |OAREA Processing 
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INPUT PROCESS OUTPUT | INPUT PROCESS OUTPUT So 
DLZARGO 2-46.10 2-46.5; 4 
2.46.11 
pizsoi z 
_— 1. If this is not the last HLP! call for the ; z , 
EXEC DLI statement, go to Step 6, ——-P 1. If EP common IOAREA is required, go S 
Figure 2-46.20. to Step 1, Figure 2-46.13. s 
DLZsDIB = : 
DLZSDIB a 
——->- 2. If previous call was not a get path call, | 
——~——pP 2. If the previous call was not a get path go to Step 6. a 
call, go to Step 1, Figure 2-46.12. o 
DLZARGO P 3 
DLZARGO _— 3. If this is not a delete call, go to Step 6. a 
_— 3. If current call is not a replace call, to 2 
to Step 1, Figure 2-46.12. DLZSDIB OLZspIB a 
4. Set previous get path call EIP common =u < 
DLZSDIB PEZSUIB IOAREA address in the DL/I parameter 
————""> 4. Reset DLI parameter count to that of list. 
the previous get path call minus one. 5. Go to Step 8. 
DLZSSA 


ISSALIOA 


5. Calculate the length required for the 
EIP common 1OAREA for this call. 


DLZsbDIB 


DIBPSIZE 


6. Save required EIP common IOAREA 


size. 
Step 1 
Figure 
2-46.14 
DLZEIPB1 - DL/I! Batch/MPS EXEC interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


1. ARGORELN contains the relative 
number of this call and ARGOTOTN 
contains the total number of calls 
for the EXEC DLI statement. 


. Bit DIBGPATH call not on in byte 
DIBSFLAG. 


. Ascan is made of all SSAs associated 
with this call, adding the length of 
each segment that has data transfer 
required in the SSA appendage. 





PROCNEXT 


| in | 
Tet 


DLZEIPB1 - DL/I Batch/MPS EXEC interface 


Extended Description Routine Label 


- DIBPATHC contains the number of 
IOAREAs specified for this call. 


. Bit DIBGPATH not on in byte 
DIBSFLAG. 


. If delete call follows a get path call, 
the IOAREA must reflect the way it 
was after the get path call. 





6. Search for associated SSA. 


DLZSDIB 
7. Set the segment IOAREA address 
in DL/I parameter list. 
DLZSDIB 


8. Update DL/! parameter count to 
include the IOAREA. 


DIBCOUNT 


Step 1 
Figure 
2-46.17 
DLZEIPB1 
Extended Description Routine Label 
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Figure 2-46.13. Path Segment Length Verification 


INPUT 


DIBCOUNT 


ARGOFNCD 


OLZARGO 


ARGOFNCD 





DLZEIPB1 — Di/I Batch/MPS EXEC interface 


Extended Description 


1. Get set to scan SSAs. 


. Segment length must be specified for 
every segment that has data transfer 
in a path call. 


. For insert calls, data transfer must be 
specified for every segment from the 
first one encountered to the object 
segment. 





PROCESS OUTPUT 


1. Get count of = and first SSA entry 


Ge 
for the path cali. 


2. If data is not to be transferred for this 
segment, go to Step 7. 


3. If this is not an insert call, go to Step 5. 


Rg 
4. Set data transferred indicator. C7 


5. If segment length is not specified, set 
up V2 status code and go to Step 1, 
Figure 2-46.21. 


6. Update to next SSA entry and go to 
Step 2. 


7. Hf this is not an insert call, update to 
next SSA entry and go to Step 2. 


8. If data was transferred on previous SSA 
entry, set up Tl status code and go to 
Step 1, Figure 2-46.21. 


9. If more SSA entries are to be processed, . 
go to Step 2. 


Step 1 
Figure 
2-46.14 


DLZEIPB1 


Extended Description Routine Label 
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Figure 2-46.14. Get EIP Common !OAREA (Part 1 of 2) 





INPUT PROCESS OUTPUT 
2-46.11 
D DIB 2-46.13 
__ — 1. if ElP common tOAREA size is pa 
sufficient for this call, go to Step 11. 
foe Sa 2. if storage was not acquired for the EIP 
common IOAREA, go to Step 6. 
DLZSDIB as 
ee 3. Get address of EIP common IOAREA. CT 
4. FREE current EIP common IOAREA 
storage. 
le <> DFHSC TYPE= FREEMAIN 
aan] S> 5. If storage request was unsuccessful, 
go to Step 2, Figure 2-46.22, 
DLZsDIB no 
f pispsize. | (2a ~=«CS... Get current required EIP common 
DLZSDIB 
: Ro 
7. Set current size as new EIP common DIBIOSIZ 
Co) RARER 
8. Acquire storage for EIP common 
lOAREA. 
a <=> _DFHSC TYPE =GETMAIN © 
| _— 9. If storage request was unsuccessful, 
go te Step 1, Figure 2-46.22. 
DLZEIPB1 — DL/! Batch/MPS EXEC Interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


. If the storage size (DIBPSIZE) calcul- 
ated for this call is less than or equal 
to the size of the existing EIP common 
IOAREA, the existing one is used. 


. DOS/VS FREEVIS issued. 


. Unsuccessful retum code is in register 
15. 


. DOS/VS GETVIS issued. 


. Unsuccessful retum code is in register 
15. 





'PROVDIOA 





Figure 2-46.14. Get EIP Common IOAREA (Part 2 of 2) 
INPUT PROCESS 


Ri 


c—+-- 


10. Save the address of the EIP common 
AREA. 


DLZSDIB 


 ———¢ 11. Set address of EIP common IOAREA in 
the DL/I parameter list. 


DLZSDIB 


WP 12. Update the DL/I call parameter count to 


include the IOAREA, 


DLZEIPB1 - DL/t Batch/MPS EXEC Interface 


Extended Description 


Routine Label! 
10. Address of the area processed by 
GETMAIN is returned in register 1. 
i. EIPIOAOK 


Extended Description 





OUTPUT 


DLZSDIB 


DIBIO 


DLZSDIB 


DIBPARM3 


DLZSDIB 


DIBCOUNT 


Step 1 
Figure 
2-46.15 


OLZEIPB1 


Routine Label 
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Figure 2-46.15. Build EIP Common IOAREA (Part 1 of 2) 





Figure 2-46.15. Build EIP Common IOAREA (Part 2 of 2) 








INPUT PROCESS output INPUT PROCESS OUTPUT 
2-46.14 
DLZARGO 
DLZSSA 
——— 7 1. If this is a get cali, go to Step 1, Figure 
DLZSDIB 2-46.17. SSAFLAG ——-F? 10. If data was not transferred on previous 
OLESSA path call, go to Step 5. 
RS ; 
2. Get count of SSAs and the EIP common eae ————.¢ 11. Get length of data that was transferred 
IOAREA address. RS on previous call. 
— DLZSSA 
SSAFLAG are oss 12. If previous segment was a fixed length, 
3. If data is not to be transferred, go to lt Step 17, : : 
Step 8. DLZSSA 
cones Area 
>a haewe tha Deienk yas EP Gouda: [ssascorr_]}- — — FP 13. If offset was not specified go to Step 16. 
1OAREA. 
es eed 14. Calculate length of the destination 
5. If all segments were moved to the EIP parent and set length in the IOAREA. 
common IOAREA, go to Step 1, 
Figure 2-46.17. 15. Go to Step 17. 
6. Update to the next SSA pointer. A ee 16. Set the length in the IOAREA. 
DLZSDIB 7. Go to Step 3. 17. Update to next available area in E!P 
common IOAREA. 
—— 7) ‘8. If the previous call was not a path call, 
go to Step 5. 18. Go to Step 5. 
DLZARGO 
———F 9. If this is not a replace call, go to Step 5. 
DLZEIPB1 - DL/I Batch/MPS EXEC Interface BL ZEIbat DLZEIPBI1 - DL/I Batch/MPS EXEC interface DLZEIPB1 
Extended Description Routine —_Label Extended Description Routine —_Label ee nestiee Extened ee Sot 


Bit SSAVARL not on in byte 


SSA count is set in register 5 and SSAFLAG 


EIP common IOAREA address is 


set in register 6. The length of a variable destination 


parent must be in the first two 
bytes of the segment that is 
after the concatenated key and 
intersection data. 


For variable length segments the 
length must appear in the first 


Bit DIBGPATH not on in byte two bytes of the segment. 


DIBSFLAG. 
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Figure 2-46.16. SCHD, TERM, and CHKP Processing 
INPUT PROCESS OUTPUT 





DLZARGO 


ARGOFNCD 


> 1. If this is a schedule call, sat up AD 
status code and go to Step 1, Figure 
2-46.21. 


> 2. If this is a termination call, set up AD 
status code and go to Step 1, Figure 
2-46.21. 


> 3. If this is not a checkpoint call, set up AD 


status code and go to Step 1, Figure DLZSDIB 
‘DLZHLPIL 2-46.21. 
: 
eet 4. Setup DL/ | parameter list for 
Checkpoint. 
Step 1 
Figure 
2-46.17 
DLZEIPB1 - DL/I Batch/MPS EXEC Interface OLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


HLPICKID contains a pointer to the 
checkpoint ID, 











Figure 2-46.17. DL/1 Program Request Handler Interface 


INPUT 246.12 ff PROCESS 
DLZSDIB 2-46.15 
2-46.16 
fa Soi..sIf the previous call was not a get path 
ns call, go to Step 3. 
2. Reset the path call indicators. 
3. Set EIP return address for DL/t. 
4. Save EIP registers. 
DLZsDIB 


6. Set language code for DL/I program 
request handler. 


OLZSDIB 


__|| 5. Set register save area pointer. 


[eisranm_] on a 7 


Set pointer for DL/I call parameter fist. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label Extended Description 


Bit DIBGPATH not on in byte 
DIBSFLAG. 


Bits DIBGPATH and PATHCALL, 
tumed off. 


Return address at label 
DLIRETRN 


X‘02’ = non-PL/I HLPI program 
X‘03’ = PL/I HLPI program 


A 
NOTE: Batch exit to DLZPRHBO 
MPS exit to DLZMPRH 


BRIT. 


Exit 
to 
OL/! 


OUTPUT 


DLZSDIB 


[piesruac | 


OLZPATH 


IPATHFLAG | 


2 
= 
> 


DLZSDIB 


DIBRERC 


R13 


inlgt 


OLZE!PB1 


Routine 


Label 
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Figure 2-46.18. DL/I Returm interface 
INPUT PROCESS OUTPUT 
Colter . 


DLZSDIB ! 1. Set addressability to the user DIB. 


2. Get address of the PCB. 


et 
DBPCB Lal DLZDIB 
Ere 


3. Move DL/I status code, resource conflict 
indicator, segment name, and level to the 


meet 





DBPCBJCB 
pepcesro 
DLZOIB 
DIBSTAT —— 7 4. If valid status code is returned from 
DL/I, go to Step 1, Figure 2-46.19. 
Step 1 
Figure 
2-46.21. 
DLZEIPB1 - OL/i Batch/MPS EXEC Interface te DEZEIPBt 
Extended Description Routine —Label Extended Description Routine Label 


1, 
3. 
4. Valid DL/I status codes for HLPI: 


‘bb’, ‘GA’, ‘GB’, ‘GE’, ‘GK’, TI’. 
‘LB’, and ‘NE’. 
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Figure 2-46.19. Get Path Call Processing (Part 1 of 2) 
PROCESS 


INPUT 


ARGOFNCD —— 


DLZSDIB 


DIBPATHC = 


OLZPATH 


PATHSSAP =—— 


DLZEIPB1 - OL/I Batch/MPS EXEC Interface 


Extended Description 


1, 


5. DOS/VS GETVIS request issued. 


8. Bit PATHCALL set on in field 
PATHFLAG. 


2-46.18 


lf checkpoint or not a get call, go to Step 


6, Figure 2-46.20. 


Hf only one IOAREA is required, go to 
Step 1, Figure 2-46.20. 


If storage is acquired for SSA path 
appendage, go to Step 8. 


Get required length of a path SSA 
appendage. 


Issue GETMAIN request for storage. 


If request was unsuccessful, go to Step 1, 


Figure 2-46.22. 


Clear storage area to binary zeroes. 


Set path call indicator. 


Calculate number of SSAs for this call. 


Label Extended Description 





OUTPUT 


RO 


I 


DLZPATH 
PATHFLAG 


RS 


I 


OLZEIP61 


Routine 


Label 


“Extended Description 


Figure 2-46.19. Get Path Call Processing (Part 2 of 2) 


INPUT PROCESS 
DLZSSA 
SSASEGNM ——-p 10. Ifdata transfer is requested for this 
segment, create a path SSA appendage. 
SSAFLAG 
11. Update to next SSA. 

SSAIOA 
SSALIOA 

————~ 7 12. If more SSAs are to be processed, go to 





OLZSOtB 


DLZSSA 


——} u. 


15. 


16. 


DLZEIPB1 - OL/I Batch/MPS EXEC interface 


Routine 


Step 10. 


Get address of EIP common IOAREA. 


If data transfer is requested for this 
segment, move the segment from EIP 
common IOAREA to the segment 
lOAREA. 


Update to next SSA, 


If more SSAs are to be processed, go to 
Step 14. : 


Label "Extended Description 





Step 10 
Figure 
2-48.20 


OUTPUT 


DLZPATH 


OLZEIPBI 


Routine 


Label 
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Figure 2-46.20. Variable Length Segment Check 
INPUT PROCESS 


2-46.11 
2-46.19 


DOLZARGO 


ARGOTOTN ——->-> 1. 


DLZARGO 
ARGOSOPT ——pP 2 
3. 
4. 
DLZSSA 


| 
| 
: 
or 


DLZSSA 
f——> «. 
7. 
¥ 
8. 
9. 
OLZsDiB 


110. 


1. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine 


If more than one HLPI call for the DLI 
EXEC statement, go to Step 5. 


If fixed length segment or if segment 
length is not specified, go to Step 10. 


If length of segment read is greater than 
the segment length required, set up V4 
status code and go to Step 1, Figure 
2-46.21. 


Go to Step 10, 


If data is not to be transferred, go to 
Step 8. 


If this is a fixed length segment, go to 
Step 10. 


If length of segment just read was 
greater than the segment length 
requested, set up V4 status code and ga 
to Step 1, Figure 2-46.21. 

Update to the next SSA. 


If more SSAs, go to Step 1. 


Get caller’s register save area. 


Restore caller‘s registers. 


Caller 


Label Extended Description 


GETICHK 


NOFFSPEC 
IOACHK 
CHECKLEN 
UPSSA 


CALLDONE 
EIPEXIT 


OUTPUT 


DLZEIPBt 


Routine 


Label 








Figure 2-46.21. ABEND Routine 
INPUT Caller 


OLZSDIB 


41, 


OLZSDIB 


[oenecsv ]}-—— 7p 


OLZEIPL 


OLZEIPL 


EIPABEND | bpo——————ne 


OLZSDIB 


pisrskwo | hF———— 


DLZEIPB1 - DL/t Batch/MPS EXEC Interface 
Extended Description 


BATCH=ERRORMSG 
MPS=DLZMMSGX 


BATCH=DLZABEND 
MPS=DLZMABNX 


Routine Label 


PROCESS 


1. Set up DLZ0371 message parameter list. 


2. Set pointer to message parameter list. 


3. Set pointer to register save area. 


4. Go to DL/I message routine to issue 


message. 


OLZODP 


Error message 
routine 


=) 







5. Get DL/I ABEND routine address. 


6. Restore caller's register save area 
pointer. 


Extended Description 





DL/I 
ABEND 
BR R15 


OUTPUT 


OLZspIB 


i DIBMSG | 
OIBMSGSC 
DIBMSGRC 


DLZEIPB41 


Routine 





Label 
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Figure 2-46.22. Storage Management Error Routine 


INPUT PROCESS ouTPUT 
Caller 
R4 
1. Get address of GETVIS macro name and (===) 


go to Step 3. 2. 


DLZsbIB 


2. Get address of FREEVIS macro name. — ca 


3. Set up parameter list for message 
DLZ038I. 





Step 2 
Figure 
2-46.21 
DLZEIPB1 - DL/I Batch/MPS EXEC Interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


1. Name at label GETID. 
2. Name at label FREEID. 
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- Figure 2-47. EX 
Figure 2-47. DL/t Online EXEC Interface (OVERVIEW) (Part 1 of 3) igure 2-47. DL/I Online EXEC Interface (OVERVIEW) (Part 2 of 3) 


acces ponstche ouTPuT INPUT PROCESS 
. Initialization. 13. Field Qualification Routine 
(See Figure 2-47.1) (See Figure 2-47.13) 
. Initial Call Processing. 14. SSA Appendage Processing. 
‘ (See Figure 2-47.2) (See Figure 2-47.14) 
. Acquire System DIB. 15. Calculate IOAREA Size. 
(See Figure 2-47.3) (See Figure 2-47.15) 
. SDIB Validation and Return. 7 16. Single IOAREA Processing. 
(See Figure 2-47.4) (See Figure 2-47.16) 
. Call Determination Routine. 17. Path Segment Length Verification. 
(See Figure 2-47.5) (See Figure 2-47.17) 
. PCB Processing Routine. 18. Get EIP Common I[OAREA. 
(See Figure 2-47.6) (See Figure 2-47.18) 
. Segment Length Verification. 19. Build EIP Common IOAREA. 
: (See Figure 2-47.7) (See Figure 2-47.19) 
Segment/Offset Length Verification. 20. Schedule Call Processing. 
(See Figure 2-47.8) (See Figure 2-47.20) 
. Replace/Get Path Processing. . TERM Call Processing. 
(See Figure 2-47.9) (See Figure 2-47.21) 
. Acquire SSA Storage. - Checkpoint Call Processing. 
(See Figure 2-47.10) (See Figure 2-47.22) 
. Load/Delete Call Check. DL/t Program Request Handler 
(See Figure 2-47.11) Interface. 
(See Figure 2-47.23) 
. Command Code Processing. 
(See Figure 2-47.12) . DL/t Return Processing. 
- (See Figure 2-47.24) 


: * DLZEIPOO- DL/I Online EXEC Ini Di Pe 
DLZEIPOO - DL/I Online EXEC interface DLZEIPOO terface LZEIPOO 
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Wa] Jo 4}290d01g—e119} 8] posusdry] 


uoneiadg jo poyaw :Z WOTES 


6hT - 7 





Figure 2-47. DL/t Online EXEC interface (OVERVIEW) (Part 3 of 3) 
INPUT 


DLZEIPOG - DL/I Online EXEC interface 


Extended Description 





25. 


26. 


PROCESS 


DL/i Psuedo ABEND Processing. 
(See Figure 2-47.25) 


DIB Initialization. 
(See Figure 2-47.26) 


. Get Path Cail Processing. 


(See Figure 2-47.27) 


. Variable Length Segment Check. 


(See Figure 2-47.28) 


. Invalid DIB Processing. 


Routine 


(See Figure 2-47.29) 


Label Extended Description 





DLZEIPOO 


Routine 





Label 
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Figure 2-47.1. Initialization 





INPUT PROCESS OUTPUT 
Caijer 
DFHUEPAR 1. Save caller's registers. 
—— 2. Get address of CICS inhibit flags. 
DFHUERTR 
——~ FP 3. If this is anon-API call, go to Step 6, 
Figure 2-47.4. 
DFHUEPAR 
PP 4. Get address of CICS CSA and application 
program register save area. 
5. Get HLPI parameter list address. 
AN 
6. Set up base register. fad 
TCA 
[rcasvaa_ | ’ 
7. Get address of CICS system TCA. 
DLZHLPIL 
=| 8. Get address of the HLP! argument list. 
Step 1. 
Figure 
2-47.2 
DLZEIPOO - DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 


DFHUEPAR is the CICS user 
interface block whose address 
is passed in register 1. 


The HLPI parameter list address is 
in the sixth fullword of the user’s 
register save area. 





DLZEIPI 





Figure 2-47.2. Initial Call Processing 
INPUT 


OLZARGO 


ARGOFNCD aor qs 


ce 
TCASCNB 


OLZEtPOO - DL/I Online EXEC Interface 


Extended Description 


Bits TCAUIBAQ and 
TCADIBAQ on. 


Bit TCAUIBAQ only is on. 


CICS GETMAIN issued. If 
unsuccessful, the task is 
terminated. 


ID of ‘DLZSDIB’ initialized in the 
first seven bytes of the control 
block. 


PROCESS OUTPUT 


1. 


Routine 





Hf this is not an initialization call, go to 
Step 1, Figure 2-47.5. 


If storage was acquired for the UIB and 
SDIB, go to Step 1, Figure 2-47.4. 


If storage was acquired for the UIB only, 
go to Step 1, Figure 2-47.3. 


Acquire storage for the UIB and SDIB. 


TCA 


Save the UIB and SDIB address and set 
storage acquired indicators. Go 


DLIUIB 
Save the system DIB address. 


DLZSDIB8 


Set the ID in the system DIB. - 





Step 4 
Figure 
2-47.4 


DLZEIPOO 


Label Extended Description Routine 


EIPSTART 
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Figure 2-47.3. Acquire System DIB 


INPUT PROCESS « 





Caller 


DLZEIPOO — DL/! Online EXEC Interface 


Extended Description Routine Label 


1. CICS GETMAIN issued. If unsuccessful, AQSDIB 
CICS terminates the task. 


3. Bit TCADIBAQ set on. 


4. ID of ‘DLZSDIB’ initialized in the 
first seven bytes of the control 
block. 


4, Set ID in system DIB. 





—— —— 1. Acquire storage for the system DIB. 


2. Save the system DIB address. 


3. Set SDIB storage acquired indicator. 


Extended Description 


OUTPUT 


“pLIUIB 


UIBSDIB 


TCA 


TCADLIBF 


OLZSDIs 


DIBIO 


Step 4 
Figure 
2-47.4 


OLZEIPOO 


Routine Label 


Figure 2-47.4. SDIB Validation and Return 


Cailer 


INPUT 
TCA 
TCADLIBA 


OLIVIB 


DLZSDIB 


DLZHLPIL 


HLPIDIBP 


DLZEtPOO — DL/i Online EXEC Interface 
Extended Description 


1. 

3. ID of ‘DLZSDIB’ must be in the 
first seven bytes of the control 
block. 


4. 


6, Returns to DFHEIP. 





S 
=e 
a a ae 


PROCESS 3 OUTPUT 


1. Get address of the UIB. 


2. Get address of the system DIB. 


3. If this is not the system DIB, go to 
Step 1, Figure 2-47.29. 


4. Get the user DIB address. 


OLZSDIB 


(reno | 


5. Update system DIB with the current 
user DIB. 


6. Restore DFHEIP registers. 


DFHEIP 


DLZEIPOO 


Routine Label Extended Description Routine 


INITEXIT 
EJPEXIT 


Label 
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Figure 2-47.5. Call Determination Routine (Part 1 of 2) 
INPUT PROCESS OUTPUT 


B Catlor 
TCA 


fe" 1. Get UIB address. 


OLIVIB 


ee 
OLZSO1B 
Step 1, Figure 2-47.29. 
ee 


ad 


DLZSDIB 


DIBHLPIA 


4. Save HLPI parameter list pointer and 
caller's register savearea address. 


DIBRBKWD 


DLZHLPIL 


HLPIDIBP 


OLZSDIB 


OIBLUDIB 


s 


Get address of user DIB and save it in 
system DIB. 


6. Clear user DIB. 


DLZSDIB 


7. Set address of DL/I parameter count 
in DL/t call parameter list. 


DLZEIPOO - DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description : Routine Label 


1. DLZEIPO 
4. GETFNCAL 


6. User DIB set to binary zeroes 
except for version. 








OIBCNTAD 


Extended Description Routine Label 





Figure 2-47.5. Call Determination Routine (Part 2 of 2) 
INPUT PROCESS 





DLZARGO 


8. If this is not a data base call, go to Step 1, 
Figure 2-47.20. 


ARGOFNCD | HE — — — 


OLzsbIB 


———45 29. If scheduling call is not issued, set TH 
status code and go to Step 5, Figure 
2-47.25. 


Y, 


DLZARGO 


> 10. If this is not the first HLPI call, go to 
Step 1, Figure 2-47.7. 


DLZARGO 


-—— = 11. If 1{OAREA is specified for this call, 
go to Step 5, Figure 2-47.6. 


12. Set AB status code in user DIB. 


DLZEIPOG — DL/I Online EXEC Interface 


Extended Description 


8. Data base calls, as defined here, are 
get, insert, replace, and delete. 


. Scheduling call must be first DL/I 
call request. 


. The first call for an EXEC DL/I 
statement passed is actually the 
call for the object segment. 


. AB status code equals segment 
IOAREA required for object 
segment. 


Step 5 
Figure 
2-47.26. 


OUTPUT 


OLzpIB 


DIBSTAT 


DLZEIPOO 


Routine 


Labei 
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Figure 2-47.6. PCB Processing Routine 
INPUT 
Calter 


DLUZHLPIL 





DLZOIB 


DIBDCBAD I [j_—_———-—-~" 


DLZEIPOO — DL/I Online EXEC Interface 


Extended Description Routine Label 


1. On the first HLPI call for each EXEC 
DLI statement the path count, current 
required IOAREA size, the DL/I para- 
meter count are set to binary zeroes 
and the DL/I function-call is set in the 
DL/I call parameter list. 


5. Using the PCB number, index into the 
PCB list for the current PCB address. 





1. Reset necessary fields in system DIB. 


2. Get PCB number specified for this call. 


3. 1f PCB number is zero, negative value, 


6. Store PCB address in DL/I call para- 


7. Update DL/I cali parameter count to 


PROCESS + pe OUTPUT 
OLZSDIB 


DIBPATHC 


DIBCOUNT. 


or greater than the number of PCB for 
the PSB, set TP status code and go to 
Step 1, Figure 2-47.25. 


OLZSDIB 
4. Save current PCB number in system DIBPCBNO 
ie {orsrceno_} 
5. Get PCB address for this call. 


OLZsbDiB 


DIBPARM2 


meter fist. 


iw] 
A 
a 
g 
o 


[piecounT | 
include the function call and PCB 


address. 


2-47.6 


DLZEIPO0 


Extended Description , Routine Label 








Figure 2-47.7. ment Length Verification 
INPUT Sea gth PROCESS 


Catler 
DLZARGO 


TARGOCCOD | __ _. _} 1. If data is not to be transferred, go to 
[Assoccoe ] Y ~—s- Step 22, Figure 2-47.8. 


the system DIB. 


DLZARGO 
ee es 3. if this is a variable fength segment, go 


to Step 1, Figure 2-47.8. 


V/ 


DLZARGO 


4. If segment length not specified, go to 
Step 22, Figure 2-47.8. 


V/ 


ARGOSOPT _———. 


OLZHLPIL 


\i/ 


5. Get segment tength. 


HLPILIOA re 


6. If segment length is zero or a negative 
value, set V2 status code. Go to Step 
1, Figure 2-47.25. 


OLZEIPOO — DL/I Online EXEC Interface 
Extended Description Routine Label 


. Bit CCINFROM on in byte 
ARGOCCOD. 


. Account is kept for each call that has 
requested data transfer for the EXEC 
DLI statement. 


. Bit OPTVAR on in byte 
ARGOSOPT. 


. Bit OPTSEGL on in byte 
ARGOSOPT. 


. Field HLPILIOA contains a pointer 


to the segment length. 


2. Update data transfer count and save in 


Extended Description 


OUTPUT 


DLZSDIB 


Stap 19, 
247.8 


DLZEIPOO 


Routine Label 
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Figure 2-47.8. Segment/Offset Length Verification (Part 1 of 3) 
OCE: 


INPUT 
Caller 


OLZHLPIL Ly 


7~———ry” 1. Get address of the segment IOAREA 


DLZARGO 


ARGOSOPT 


DLZHLPIL 


- HLPIOFST 


DLZHLPIL 


OLZEIPOO - DL/t Online EXEC Interface 


Extended Description 


Bit OPTOFF not on in byte 
ARGOSOPT. 


Field HLPIOFST contains a 

pointer to the OFFSR value. 

This value is the length of the 
concatenated key plus the length of 
the intersection data (if any). 


Field HLPILTOA contains a 
pointer to the segment length. 





ee 
DLZARGO 
P 


ae 
HLPILIOA 


address. 


N 


~ 


Get offset value. 


> 


9s 


If offset is not specified, go to Step 13. 


If offset value is zero or a negative 
value, set up V5 status code and go to 
Step 1, Figure 2-47.25. 


If maximum statement length is not 
specified, go to Step 11. 


Get maximum segment length. 


7. {tf maximum segment length is zero or a 


negative value, set V2 status code and go 


to Step 1, Figure 2-47.25. 


8. If offset value is greater than segment 
length, set V5 status code and go to 
Step 1, Figure 2-47.25, 


Routine Label 


VRSGSIZE 


Extended Description 


OUTPUT 


Routine 


Label 





Figure 2-47.8. Segment/Offset Length Verification (Part 2 of 3) 
(INPUT : PROCESS 


o 
r 
5 
a 
Q 
o 


—< 9. If this is not a get call, go to Step 12. 


10. Get segment length and go to Step 19. 


a b 11. If this is a get call, set V2 status.code 


and go to Step 1, Figure 2-47.25. 


12. Compute length of the segment and go 


to Step 15. 
DLZARGO 
TARGOFNCD ais bt 13. If this is a get call, go to Step 4, 
meena Figure 2-47.7. 


14. Get length of variable length segment. 


15. If segment length is greater than the 
maximum length supported, set V4 
status code and go to Step 1, Figure 


2-47.25. 


ARGOSOPT ED 
19. 


HLPILIOA 


2 g 
N N 
2 5 
& 3 
- 6 


by «16. If maximum segment length is not 
specified on HLPI call, go to Step 


————"> _ 17. Get maximum segment length. 


18. If segment length specified in IOAREA 
is greater than maximum segment 
length, set V4 status code and go to 
Step 1, Figure 2-47.25. 


DLZEIPOO — DL/I Online EXEC interface 
Extended Description Routine Label 
. This check is made for all get type 
call GN, GU, and GNP. 
VGETCALL 
. This length includes the concatenated VRSGCON 
key, intersection data, and the 
segment. 
NOFFSET 


. This length is in the first two bytes 
of the segment IOAREA. 


. Bit OPTSFGL not on in field 
ARGOSOPT. 


. Field HLPILIOA contains a 
pointer to maximum segment 
length. 





Extended Description 


DLZEIPOO 


Routine 





Label 
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Figure 2-47.8. Segment/Offset Length Verification (Part 3 of 3) 
INPUT PROCESS 


DLZSOIB 


Dispsize | Hoa > 19. Get current length required for 
[biersize ] raped 


20. Update current required JOAREA 
length with this segment length. 


21, Save updated required IOAREA length. 


DLZARGO 
[ancosorr | , 22. If segment name is specified go to Step 
[ancosorr_] 1, Figure 2-47.9. 

DLZARGO 
[ARGOFNCO | , 23. If call is not a get next type, set AH 
Lensoesves } status code and go to Step 1, Figure 

2-47.25. 
DLZHLPIL 


A, 24. Set segment IOAREA address in DL/I 


call parameter list. 


DLZEIPOO — DL/I Online EXEC Interface 


- Extended Description Routine Label Extended Description 


19, 


22. Bit OPTSEGM on in field 
ARGOSOPT. 


Figure 
2-479 


OUTPUT 


DLZSDIB 


DLZSDIB 


DIBPARM 


DLZESPOO 


Routine 


Label 
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Figure 2-47.9. Replace/Get Path Processing (Part 1 of 3) 


t(NPUT 
Caller 


Goma] Mom, 


iDIBPATHP. 
DIBPCBNO 





DLZPATH 


PROCESS OUTPUT 


1. Do calculations to get the correct path 
header contro! block for current PCB. 


o—-——"S 2. Get path SSA appendage pointer. 


DLZARGO 


ARGORELN -_-—- 


DLZEIPOO — DL/I Online EXEC Interface 
.Extended Description 


1. Current PCB number-1 x length of the 
path header control block. 


4. Bit DIBGPATH set ON in field 
DIBSFLAG. 


. If the previous call was a get path call 
and current call is a replace. call and 
this is the first HLPI call for the DLI 
EXEC statement, the SSAs and SSA 
appendages are reconstructed based 
on the get path call. 





3. If path SSA appendage does not exist 
or if previous call was not a get path 
call, go to Step 1, Figure 2-47.10. 


DLZSDIB 
4. Reset get path call indicator in system (BiesFtac__] 
DIB. 
b> 5. If this is not a replace call go to Step 
1, Figure 2-47.10. 
b& 6. If this is not the first HLPI call for the 
DLI EXEC statement, go to Step 9. 
DLZSDIB 


DIBPRCNT 


7. Reset system DIB with previous get path 
call information. 


OLZEIPOO 
Routine Label Extended Description Routine 


STARTSSA 





8. SSAs are reconstructed with segment 
name, n command code, and blank 
delimiter. 


. HLPISEGN contains a pointer to the 
segment name. 


. Bit SSAPROC not set in field 
SSAFLAG. 


. Bit SSAPROC set ON in field 
SSAFLAG. This is done to ensure 


duplicate segment names are not 
specified in current call. 


. Bit CCINFROM not on in field 
ARGOCCON. 


. Bit SSADATAT not on in field 
SSAFLAG. 


. Bit OPTVAR not on in field 
ARGOSOPT. 





Figure 2-47.9. Replace/Get Path Processing (Part 2 of 3) 


INPUT PROCESS OUTPUT 
DLZSSAP DLZSSA 
—— Bs 8. Reconstruct the SSAs and SSA 
appendages for the get path call. 
OLZHLPIL 
9. Get current HLPI call segment name. 
DLZSSA 
[SSASEGNM | — — & 10. If segment name does not exist in the 
[ssasecnm ] reconstructed SSAs, go to Step 21. 
DLZSSA 
fe cw 11. If SSA entry was previously processed, 
set AC status code and go to Step 1, 
Figure 2-47.25. 
'DLZSSA 
12. Set SSA processed indicator. 
DLZARGO 
—__ — 13. If path is not to be transferred for 
this call, go to Step 1, Figure 2-47.15. 
DLZSSA 14. If data was not transferred on previous 
get path call, go to Step 21. 
DLZARGO 
— —f 15. If current segment is not variable 
length, go to Step 18. 
DLZEIPOO — DL/i Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Labet 


RELOOP 


SEGNCHK 


SEGLOOP 
SSAFOUND 


SSAOK 
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Figure 2-47.9. Replace/Get Path Processing (Part 3 of 3) 


Label 

16. Bit SSAVARL on in byte 

SSAFLAG. 
18. SSANOTV 
19, HLPILIOA contains a pointer to the 

segment length. 
21, Status code ‘TO’ indicates replace/ ERRORTO 

get path calls inconsistent. 


INPUT PROCESS OUTPUT 
DLZSSA 
—— — >» 16. If variable length segment was specified 
[| SSAFLAG | 
[ssaras ] on previous get path call, go to Step 1, 
Figure 2-47.12. 
17. Go to Figure 2-47.25. 
18. If variable length segment was specified 
on previous call, go to Figure 2-47.25. 
DLZHLPIL 
ie, 19. Got address of segment length. 
DLZSSA 
ery 20. If replace lengths are equal go to 
Step 1, Figure 2-47.12. 
DLZDIB 
21. Set TO status code in user DIB. 
22. Go to Step 1, Figure 2-47.25. 
2-47.26 
DLZEIPOO — DL/! Online EXEC Interface DLZEIPOO 
Extended Description Routine Extended Description Routine Label 
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Figure 2-47.10. Acquire SSA Storage 


INPUT 
Cailer 


DLZARGO 





—— 
on 


OLZHLPIL 
IHLPISEGN 


DLZEIPOO ~ DL/i Online EXEC Interface 


Extended Description 


. Relative number in field ARGORELN 
is one. 


. The first HLPI call for the EXEC DLI 
statement is for the object segment. 


. CICS GETMAIN issued. If failure 
occurs, CICS terminates the task. 


. The SSA pointer area in the DLI para- 
meter list in the system DIB where the 
SSA pointer is stored is dependent on 
the number of the HLPI call. 


. Field HLPISEGM contains a pointer 
to the segment name. 





Routine Label 


PROCESS 


1. If this is not the first call for the EXEC 
DL/t statement, go to Step 3. 


2. Move the segment name to user DIB. 


3. Get length for the largest possible 
SSA. 


4. if storage has not been acquired for 
the SSA, go to Step 7. 


5. Clear the SSA to binary zeros. 


6. Go to Step 9. 


7. Acquire storage for the SSA. 


8. Save the SSA address. 


9. Move the segment name to the SSA. 


Extended Description 


OUTPUT 


DLZDIB 


DLZSOIB 


DIBPARMX 


DLZSSA 


SSASEGNM 


Step 1 ~ 
Figure 
2-47.11 


DLZEIPOO 


Routine 


Label 


Figure 2-47.11. Load/Delete Call Check 


INPUT 
Caller 


DLZARGO, 


ARGOFNCD 


DLZEIPOO — DL/I Online EXEC Interface 
Extended Description 


1. Load call is invalid in online 
environment. 


2. Delete call is unqualified. 





PROCESS 


1. If this is a load call, set CD status code 
and go to Step 5, Figure 2-47.25. 


2. If this is not a delete call, go to Step 1, 
Figure 2-47.12. 


3. Move blank delimiter to SSA. 


Extended Description 


Step 1 
Figure 
2-47.14 


OUTPUT 


OLZSSA 


SSAASTRK 


OLZEIPOO 


Routine 


Label 
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Figure 2-47.12. Command Code Processing (Part 1 of 3) 
{INPUT 


Caller 


DLZARGO 


AARGOFNCD — = 


OLZARGO 


ARGOFNCD —_—— 


DLZARGO 


AARGOCCOD ere 


[ancoccoo JH} — — 


DLZEIPOO ~ DL/I Online EXEC Interface 
Extended Description 


. Command code indicator is an astrisk 


. Null command codes are dashes (-). 


. Replace call code equals X‘14’. 


. Bit CCINFROM on in byte 
ARGOCCOD. 


. ‘N’ command code indicates that this 
segment is not to be replaced. 


. Function code is not equal to X‘12’. 


- Bit CCINFROM not on in byte 
ARGOCCOD, 


. ‘D’ indicates multiple insert path 
call. 


. Bit CCFIRST not on in byte 
ARGOCCOD. 


7 





Routine Label 


PROCESS OUTPUT 
DLZSSA 

1. Set command code indicator in SSA. 
DLZSSA 


2. Set for null command code. 


IssacmND | 


3. If this is not a replace call, go to Step 6. 


4, If data to be transferred for this call, 
go to Step 1, 2-47.13. 


DLZSSA 


SSACMND 


5. Set ‘N’ command code in SSA. 


Eos ia Figure 
6, If this is not an insert call, go to 2-47.13 


step 15. 


7. If data-is not to be transferred, go to 
‘Step 9. 


DLZSSA 





8. Set ‘D’ command code in SSA. 


9, If first was not specified for this call, 
go to Step 12. 


DLZEIPOO 
€xtended Description _ Routine Label 


CONTSSA 


CKCCISRT 











Figure 2-47.12, Command Code Processing (Part 2 of 3) 


INPUT 


DLZARGO 


ARGOFNCD — 


DLZARGO 


IARGOFACD aad 


DLZARGO 


fracoo] + — 


DLZARGO 


ARGOCCOD — 


OLZARGO 


Feo} — 


DLZEIPOO — DL/I Online EXEC Interface 
Extended Description 


10. ‘F indicates start with the first 
occurrance of this segment type to 
satisfy this level of call. 


. Bit CCLAST not on is field 
ARGOCCOD. 


. ‘L’ indicates use last occurance of 
segment type to satisfy this level 
of call. 


. Function code is not in range of 
X‘10’ and X‘0A’. 


. Bit CCLOCKED not on in byte 
ARGOCCOD. 


. ‘QA’ indicates to lock segment(s) 
returned to prevent modification 
by another task. 


Routine Label 


OUTPUT 
DLZSSA 


ISSACMND 


PROCESS 


10. Set ‘F’ command code in SSA. 


11. Go to Step 1, Figure 2-47.13. 


12. If last was not specified, go to Step 
1, Figure 2-47.13. 


DLZSSA 
13. Set ‘L’ command code in SSA. 


14. Go to Step 1, Figure 2-47.13. 


15. If this is not a-get call, set up AD 
status code and go to Step 1, 
Figure 2-47.25. 


16. If locked not specified, go to Step 18. 


DLZSSA 
17. Move ‘OA’ command code to SSA. 
18. If data is not to be transferred, go 


to Step 21. 


19. If this is object segment, go to Step 
21. 


DLZEIPOO 


Extended Description Routine Label 


CKCCLSTI 


CKCCGO 


ISSACMND: 
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Figure 2-47.12. Command Code Processing (Part 3 of 3) 


INPUT PROCESS OUTPUT 
. : DLZSSA 
DLZARGO 20. Set ‘D’ command code in SSA. 
—— 21. If first not specified in call, go 
to Step 24. DLZSSA 
22. Set ‘F’ command code in. SSA. 
23. Go to Step 1, Figure 2-47.13. 
——__—p 24. If last not specified, go to Step 1, 
Figure 2-47.13. 
DLZSSA 
25. Set ‘L’ command code in SSA. 
Step 1 
Figure 
2-47.13 
DLZEIPOO — DL/I Oniine EXEC Interface DLZEIPOO 
Extended Description Routine Extended Description Routine Label 


Label 
CKCCISTG 
CKCCLSTG 
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Figure 2-47.13. Field Qualification Routine 


INPUT PROCESS OUTPUT 
Caller 


DLZARGO 
en ee 1. If where is specified, go to Step 4. 
DLZSSA 

2. Set blank delimiter in SSA. ; 


7 
3. Go to Step 1, Figure 2-47.14. - 


DLZSSA 


SSALPARN 


4. Set left paren in SSA. 


DLZHLPIL = DLZSSA 
5. 


IHLPIFLDN 


. Move field name and relational 


operators into the SSA. 
DLZARGO 
6. If field tength is not specified, set up 
. V3 status code and go to Step 1, 
Figure 2-47.25. 
DLZHLPIL 
7. Get field value and the value length. 
8. If field length is zero or a negative 








value, set up V3 status code and 
go to Step 1, Figure 2-47.25. 


DLZSSA 


[ssaxeves. J 


9. Move the field value and the right 


paren to the SSA. 


Figure 
2-47.14. 





DLZEIPOO — OL/I Online EXEC Interface DLZEIPOO 


Extended Description Routine Label Extended Description Routine Label 


. Bit OPTWHERE set on in byte 
ARGOSOPT. 

. Blank indicates unqualified SSA. 

. Left paren indicates qualified SSA. 

. Field HLPIFLDN has a pointer to the 
field name and HLPIOPER has a 
pointer to the relational operators. 

. Bit OPTFLDL not on in byte 
ARGOSOPT. 

. Field HLPIFLDV is a pointer to the 
field value and HLPILFLD is a pointer 
to the field value length. 

. Right paren is delimiter for 
qualification of SSA. 
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Figure 2-47.14. SSA Appendage Processing (Part 1 of 2) 


INPUT PROCESS OUTPUT 
Calter DLZsDIB 
1. Update DL/I parameter count to 
DLZARGO reflect this SSA entry. 
ARGOCCOD —_—— +s 2. If data is not to be transferred, go to 


DLZHLPIL 


3. 


5. 


EE 
IHL PISIOA 
6. 
DLZARGO 
ARGOSOPT by 7. 
1 


OLZHLPIL. 


HLPIOF 


DLZARGO 


DLZEIPOO - DL/! Online EXEC Interface 


Extended Description Routine 
- 


2. Bit CCINFROM not on in byte 
ARGOCCOD. - 


. Field HLPISIOA contains the 
address of the segment I/O area. 


. Bit SSADATAT indicates data 
; transfer in the SSA appendage. 


. Bit SSAVARL in the SSA appendage 
indicates variable length segment. 


. Bit OPTOFF not on in byte 
ARGOSOPT. 


. HLPIOFST contains a pointer to 
the offset. 





4 


8. Set offset in SSA appendage. 


Step 1, Figure 2-47.15. 


Get segment IOAREA address. 


DLZSSA 
Save segment IOAREA address in SSA 

appendage and set data transfer 
indicator. 


SSAFLAG 


If fixed length segment, go to Step 13. 
DLZSSA 


SSAFLAG 


Set variable length segment indicator 
in SSA appendage. 


If offset is not specifed, go to Step 12. 
DLZSSA 


If this is a get call, go to Step 13. 


DLZEIPOO 


Label Extended Description Routine Label 


VARSEGL 


Figure 2-47.14. SSA Appendage Processing (Part 2 of 2) 


INPUT PROCESS OUTPUT 
RS 
10. Compute the length of the concaten- | 


DLZARGO 11. 


[ARGOFNCD |] Bas aes 12. 


DLZARGO 


——}> ® 


DLZHEPIL 
HLPILIOA |}? —s*4*". 


15. 


16. 


DLZEIPOO - DL/I Online Interface 


“Extended Description Routine 


Bit OPTSEGL not on in byte 
ARGOSOPT. 


HLPILIOA contains a pointer to 
the segment length. 





ated key, intersection data, and 
destination parent. 


Go to Step 16. . 


If this is not a get call, go to Step 15. 


If segment length is not specified, go 
to Step 1, Figure 2-47.15. 


Get pointer to segment length. 


RS 
Get segment length. C7) 
DLISSA 
Save segment length in SSA 
appendage. P 
Step 1, 
Figure 
2-47.15 
DLZEIPOO 
Label Extended Description Routine Label 


SETSEGLN 
SETLNCIS 
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Figure 2-47.15. Calculate |OAREA Size 





INPUT PROCESS OUTPUT 
Caller 
DLZARGO 
[arconeun | — — —} 1. If this is not the last HLPI call for the 
EXEC DLI statement, go to Step 6, 
Figure 2-47.4. 
DLZSDIB 
—— —__ fy 2. If the previous call was not a get path 
call, go to Step 1, Figure 2-47.16. 
DLZARGO 
— —. &, 3. If current call is not a replace call, go 
to Step 1, Figure 2-47.16. 
DLZSDIB DLZSDIB 


OIBCOUNT 


e———“ 4. Reset DLI parameter count to that of the 


previous get path call minus one. 


—— —.—f 5. Calculate the length required for the 
EltP common IOAREA for this call. 


SSALIOA DLZSDIB 


6. Save required EIP common IOAREA 


size. OIBPSIZE 





Step 1 
Figure 
2-47.18 
DLZEIPOO — DL/I Online EXEC Interface OLZEIPOO 
Routine Label Extended Description Routine Label 


Extended Description 


1. ARGORELN contains the relative 
number of this call and ARGOTOTN 
contains the total number of calls 
for the EXEC DLI statement. 


. Bit DIBGPATH call not on in byte 
DIBSFLAG. : 


. A-scan is made of all SSAs associated 
with this call, adding the length of 
each segment that has data transfer 
required in the SSA appendage. 


PROCNEXT 


figure 2-47.16. Single IOAREA Processing 


INPUT 
Caller 
DLzsoIs 
DIBPATHC eck @ 
DLZspIB 
DIBSFLAG 
DLZARGO 


v7, 


DLZsDIB 


=... 
= 


DLZEIPOO - DL/! Online EXEC Interface 
Extended Description 


. DIBPATHC contains the number of 
IOAREAs specified for this.call. 


. Bit DIBGPATH not on in byte 
DIBSFLAG. 


. If delete call follows a get path call, 
the IOAREA must reflect the way 
it was after the get path call. 





PROCESS 


1. If EIP common IOAREA is required, 
go to Step 1, Figure 2-47.17. 


2. 1f previous call was not a get path call, 
go to Step 6. 


3. If this is not a delete call, go to Step 6. 


4. Set previous get path call EI1P common 
IOAREA address in the DL/I parameter 
list, 


5. Go to Step 8. 
6. Search for associated SSA. 


7. Set the segment IOAREA address in 
DL/! parameter list. 


8. Update DL/! parameter count to 
include the IOAREA. 


Extended Description 


Step 1 
Figure 
2-47.23 


OUTPUT 


DLZsDIB 


DIBPARM3 


DLZspiB 


[breparma | BPARM3 


DLZspIB 


[ DIBCOUNT | 


DLZEIPOO 


Routine 
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Figure 2-47.17. Path Segment Length Verification 


DLZARGO 





DLZEIPOO - DL/{ Online EXEC Interface 
Extended Description 


1. Get set to scan SSAs. 


. Segment length must be specified for 
every segment that has data transfer 
in a path call. 


. For insert calls, data transfer must 
be specified for every segment from 
the first one encountered to the 
object segment. 





- Routine Label 


PROCESS OUTPUT 


” 1. Get count of SSAs and first SSA entry 
for the path call. 


2. If data is not to be transferred for this 
segment, go to Step 7. 


3. If this is not an insert call, go to Step 5. 


RQ 
4. Set data transferred indicator. 


5. If segment length is not specified, set up 
V2 status code and go to Step 1, 
Figure 2-47.25. 


6. Update to next SSA entry and go to 
Step 2. 


> 7. If this is not an insert call, update to 
next SSA entry and go to Step 2. 


> 8. If data was transferred on previous SSA 
entry, set up Tl status code and go to 
step 1, Figure 2-47.25, 


b> 9. If more SSA entries are to be processed, 


go to Step 2. 
Step 1 
Figure 
2-47.18 
DLZEIPOO 
Extended Description Routine 


Figure 2-47.18. Get EIP Common IOAREA 


INPUT PROCESS OUTPUT 


Caller 


DLZSDIB 


/ 


Disiosiz Stee, 





DLZSsDIB 


DLZsDIB 


Ei 

[oieesize | ae 
ee | 

EEN 

DLZSDIB - 

Ll 

her eT 


DLZSBIB 


DLZEIPOO - DLAI Online EXEC Interface 
Extended Description 


. If the storage size (DIBPSIZE) calcu- 
lated for this call is less than or equal 
to the size of the existing EIP common 
IOAREA, use the existing size. 


. CICS FREEMAIN issued. If 
unsuccessful, CICS terminates the 
task. 


. CICS GETMAIN issued. If 
unsuccessful, CICS terminates the 
task. 


. Address of the area processed by 
GETMAIN is returned in the TCA. 


1. 





. If storage was not acquired for the EIP 


. Get address of EIP common IOAREA. 


R9 


I 


If EIP common I1OAREA size is 
sufficient for this call, go to Step 9. 


common IOAREA, go to Step 5, 


Free the current EIP common IOAREA. 


DFHSC TYPE= FREEMAIN TCA 
. Get current required EIP common TCASCNB 
IOAREA size. 
DLZsDIB 
. Set current size as the new EIP common [ovsiosiz_] 
IOAREA size. 
. Acquire storage for the EIP common 
IOAREA. DLZSDIB 
. Save the address of the EIP common rm... | 
IOAREA. ay : 
DLZSDIB 
Set address of the EIP common [(OAREA: 
in the DL/! parameter list. ; : 
oe fees DLZSDIB : 


Update the DL/I call parameter count 
to include the {OAREA. 


Step 1 
Figure 
2-47.19 
DLZEIPOO 
Extended Description Routine Label 


ICA 
TCASCSA R 


DIBCOUNT 
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.Extended Description - 





« Figure 2-47.19. Build EIP Common IOAREA (Part 1 of 2) 


INPUT Gitar PROCESS 
DLZARGO i 

; ——P 1. If thisisa get call, go to Step 1, 
DLZSDIB Figure 2-47.23. 


2. Get count of SSAs and the EIP common 
IOAREA address, = 


DIBCOUNT 





DLZSSA 


3. If data is not to be transferred, go to 
Step 8. 
DLZSSA 


SSAIOA 


4. Move the segment to the EIP common 
JOAREA. 


SSALIOA 





5. If all segments were moved to the EIP 
common IOAREA, go to Step 1, 
Figure 2-47.23. 


6. Update to the next SSA pointer. 
OLZsDIB 7. Go to Step 3. 


DIBSFLAG —_——F 8. If the previous call was not a path 


call, go to Step 5. 
DLZARGO 


[ARGOFNCD] F- —- — 


9. If this is not a reptace call, go to 
Step 5. 


DLZEIPOO - DL/1 Online EXEC Interface 


Extended Description 


2. SSA count is set in register 5 and 
EIP common IOAREA address 
is set in register 6. 


. Bit DIBGPATH. not on in byte 
DIBSFLAG. 


Figure 
2-47.23 


OUTPUT 


EIP Common Area 


DLZEIPOO 


Routine 


Label 





Figure 2-47.19. Build EIP Common IOAREA (Part 2 of 2) 
iNPUT PROCESS 


DLZSSA 


10. If data was not transferred on previous 
path call, go to Step 5. 


SSAFLAG =e 


DLZSSA 
t———--“,_ 11. Get length of data that was transferred 
on. previous call. 
DLZSSA 
SSAFLAG ———f 12. If previous segment was a fixed length, 
go to Step 17. 
DLZSSA 
pane 13. If offset was not specified go to Step 
16. 
DLZSSA 


~———=—— 14. Calculate length of the destination 
parent and set length in the IOAREA. 





15. Go to Step 17. 
16, Set the length in the IOAREA. 


17. Update to next available area in EIP 


common IOAREA. 
18. Go to Step 5. 
DLZEIPOO — DL/t Online EXEC Interface 


Extended Description Routine Label 


_ 12. Bit SSAVARL not on in byte 
SSAFLAG. 


14. The length of a variable destination 
parent must be in the first two bytes 
of the segment that is after the 
concatenated key and intersection: 
data. 


. For variable length segments the 
length must appear in the first two 
bytes of the segment. 


Extended Description 


OUTPUT 


-DLZEIPOO 


Label 
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Figure 2-47.20. Schedule Call Processing Figure 2-47.21. TERM Call Processing 
INPUT m= PROCESS OUTPUT INPUT 


Caller . DLZARGO 


PROCESS OUTPUT 








Caller 


—— <= =f 1. If this is not a TERM call, go to Step 1, 
Figure 2-47.22, 


OLZARGO 


ARGOFNCD — — -B 1. If this is not a schedule call, go to Step 1, DLzspIB 
Figure 2-47.21. 
DIBCOUNT 


DLZSDIB 


ton — — 2. If storage was not acquired for path 
2. Set up parameter list for schedule call. header control blocks, go to Step 7. 


DIBPARM1 


DOLZPATH 





pees 3. If storage was not acquired for path SSA 


appendage, update to next path header 





Step 1, control block and go to Step 2. 
Figure 
2-47.23 
TCA 
—-~— — > 4. Free path SSA Appendage storage. 
xan DFHSC TYPE=FREEMAIN 
5. If another path header control block, 
TCA go to Step 3. 
— — —f 6. Free path header control block storage. 
es DFHSC TYPE=FREEMAIN 
DLZSDIB 
3 ist f i 
7. Set up parameter list for TERM call 
[oreraros | 
Step 1 
Figure 
2-47.23 
DLZEIPOO - DL/! Online EXEC Interface DLZEIPOO DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label ‘ 


1, TERM function code is X‘06’. 
1. Scheduling function code is X’04’, CALLSCHD 


3. 
7. 
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Figure 2-47.22. cl Call Processing 
INPUT 


OLZSDIB 


OLZEIPOO - DL/t Online EXEC Interface 


DIBPCBAD 





Extended Description 


1. 


Checkpoint function code is 
X‘08’ 


PROCESS 


Routine 





If this.is not a checkpoint call, set up 
AD status code and go to Step 5, rie 
2-47.25. 


Hf scheduling call not issued, set up TH 
status code and go to Step 5, Figure 
2-47.25. 


Set up parameter list for checkpoint call. 


Label Extended Description 


OUTPUT 


DLZSDIB 


DIBPARM1 
DIBPARM2 


Step 1 
Figure 
2-47.23 


OLZEIPOO 


Routine Label 





INPUT 
Caller 
DLZSDIB 
DIBSFLAG —e 
= 
[pisrecsv] | 
DLZSDIB 


i: | 


DLZEIPOO — OL/I Online EXEC Interface 


Extended Description Routine Label 


. Bit DIBGPATH not on in byte 
DIBSFLAG. 


. Bits DIBGPATH and PATHCALL 
turned off. 


. Return address at label DLIRETRN. 


. X02’ = non-PL/I-HLPI program 


X‘03’ = PL/I HLPI program 


NOTE: Batch exit to DLZPRHBO 
MPS exit to DLZMPRH 





Figure 2-47.23. DL/I Program Request Handler Interface 


PROCESS 


1. If the previous call was not a get-path 
cali, go to Step 3. 


2. Reset the path call indicators. 


3. Set EIP return address for DL/I. 


4. Save EIP registers. 


5. Set register save area pointer. 


6. Set language code for DL/i program 
request handler. 


7. Set pointer for DL/I call parameter 
list. 


DLIPRHEX 


DLIEXPRH 


SETPARM 





Extended Description 


OUTPUT 


OLzspDIB 





DLZPATH 





ae | 


= Cc 
_T 


R13 


ee 
E32 
cree 


OLZEIPOO 


Routine Label 
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Figure 2-47.24. DL/I Return Processing Figure 2-47.25. DL/t Psuedo ABEND Processing 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Caller Catler 
R13 TCA 
1. Restore CSA register. a 
pce “~~ ¥ 1. If request is invalid, set pointer to status 
—_ — 2. If call was not successful, go to Step code table and go to Step 3. 
1, Figure 2-47.25. 
} pais ‘ 2. Set pointer to open status code table. 
DLZARGO 
eae 3. If this is a data base cali, go to Step 
1, Figure 2-47.25. 
DLZDIB th 
Y 3. Sean status code table for correct code. 
4. Set valid status code. 
DLZDIB 
= 5. If this is not a scheduling call, go to : j 
ARGOFNCD | 
peste] Step 10. DLZSDIB 4. Set status code in user’s DIB. 
6. Calculate the number of PCBs in 5. If HLPI status code is valid, go to Step 1 
. DIBNOPCB . , go to Step 1, 
PSB list. J Figure 2-47.27. 
TCA TCA 
7. Calculate storage requirements for Itcapcap | 
path header control blocks. 6. Set up CICS ABEND code. froarcar_] 
TCA 
P 7. Issue message DLZ0371. 
—_——-» 8. Issue GETMAIN for path header 
control blocks storage. 8. Issue return to CICS. 
ead DFHPC TYPE = ABEND 
te) DFHSC TYPE=GETMAIN 
TCA : ' DLZSDIB 
9. Save address of path header control : Exit to 
Ges I —— pf aceeeet eis 
DLZSDI 
10. Restore caller's register savearea us 
pret i) 
‘DLZEIPOO - DL/I Online EXEC Interface DLZEIPOD 
BH Step 6 
mr 
DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO Extended Description Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label CHKSTAT 


CHKTAB8 
LOCSTATC 


Valid HLPI status codes to be 
retumed to the user task are: 
‘00’, ‘GA’, ‘GB’, ‘GK’, ‘IT’, 
‘NE’, and ‘TG’. 
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Figure 2-47.26. DIB Initialization 


INPUT PROCESS OUTPUT 
Cailer 


DBPCB DLZ0I6 


DBPCBSTC ———-¢ 1. Initialize the user DIB. 


IDIBSTAT 


DBPCBSFD 


DBPCBLEV 


DIBSEGLV 





DLZDIB 
OIBSTAT ——— >? 2. If the HLPI status code is valid, go to 
Step 1, Figure 2-47.27. 

Step 5 
Figure 
2-47.25 

DLZEIPOO - OL/! Online EXEC Interface DLZEIPOO 

Extended Description Routine Label Extended Description Routine Label 


i, 


2. Valid HLPI status codes to be 
retumed to the user task are: 


“bb, ‘GA’, ‘GB’, ‘GE’, ‘GK’, ‘I’, 
‘NE’, and ‘TG’.. 
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Figure 2-47.27. Get Path Call Processing (Part 1 of 2) Figure 2-47.27. Get Path Cal! Processing (Part 2 of 2) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Caller DLZSSA DLZPATH 
DLZARGO -— 9. if data transfer is requested for this 
1. If this call is TERM, checkpoi Ussscam] a a a a ai as 
——F#f . If this call is , checkpoint, or not 
a get call, go to Step 6, Figure 2-47.28. [ssAFLAG | 
me eo ais = [ssaruas_] 10. Update to next SSA. 
ouzaoe 
_ B 2. If only one IOAREA is required, go to 
DIBPATHC F 
(ourare J stop 4, Figure 247-28 
OLZPATH RS 
; oe 3. If storage was acquired for SSA — —— —p = 11. If more SSAs are to be processed, go 
: appendage, go to Step 7. TCA to Step 9. 
pLzsDIB 
4. Get required length of a path SSA 
ETE 
ei aipetiage: 12. Get address of EIP common IOAREA. 
— — 5. Issue storage request. DLZSSA 
(mma DFHSC TYPE=GETMAIN [sata] ———f 13. If data transfer is requested for this 
TCACSA OLZPATH | ee segment, move the segment from EIP 
common IOAREA to the segment 
ee . 4 
TCASCEA 6. Save storage area address. 1OAREA 
ie ol DLZPATH 14. Update to the next SSA. 
7. Set path call indicator. 
15, If more SSAs are to be processed, 
go to Step 13. 
8, Calculate number of SSAs for this call. RS Step 10 
Figure 
2-47.28 
DLZEIPOO - DL/i Online EXEC Interface DLZEIPOO DLZEIPOO - DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label ‘Extended Description Routine Label Extended Description Routine Label 


MOVESEG 


DBCALLOK 
GOTSSAP 


CHCKPATH 
GETLOOP 
NEXTGET 
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Figure 2-47.28. Variable Length Segment Check Figure 2-47.29. Invalid DIB Processing 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Caller Caller 
ICA 
DLZARGO 1. Set TN status code. 
, — —..5 1. !f more than one HLPI call for the 
DLI EXEC statement, go to Step 5. 
: . . . 2. Set ABEND savearea length. 
DLZARGO . TCA : 
—-——-B 2. If fixed length segment or if segment _— 3. issue request for ABEND save area 
length is not specified,'go to Step 10. storage. 
3. If length of segment read is greater TCA = DFHSC TYPE=GETMAIN DLZABSAV 
than the segment length required, 
set up V4 status code and go to Pp ————-"$_ 4. Set up parameter list for message BSAVMSG 
DLZSSA Step 1, Figure 2-47.25. DLZ0371. 


ABSAVRC 


R1 
R13 





4 5. If data is not to be transferred, go 5. Set pointer to message parameter list. 


to Step 8. 
DLZSSA 


6. Set pointer to register save area. 


ISSAFLAG —— G6. If this is a fixed length segment, go 
sey E— 
CD ss tee 
7. If length of segment just read was k 7. Issue message DLZ0371. 


greater than the segment length | 


requested, set up V4 status code and 
DLZSDIB go to Step 1, Figure 2-47.25. Step 8 


Figure 


2-47.25 
8. Update to the next SSA. 


9. If more SSAs, go to Step 1. 
R13 


10. Get caller’s register save area. eS | 


11. Restore caller's registers. DLZE1PO0 — DL/I Online EXEC Interface DLZEIPOO 


Caller Extended Description Routine Label Extended Description Routine Label 
DLZEIPOO — DL/I Online EXEC Interface DLZE!POO 


DINABND1 


Extended Description Extended Description Routine Label! 
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Figure 2-48. HLP! COBOL Language Interface 


INPUT PROCESS OUTPUT INPUT 
Calier Caller 
R13 R13 
 — 1. Save caller's registers. EES 
rea Py 
nocstion 20 —————"> 2. Get the communication region address. ; sateen 20 
3. Get DL/I program request handler 
address. 
DLZEIPL 

DLZEIPL 4. Get EIP parameter list. 


_————— > 5. Get entry point of DLZEIPBO. 


Exit to 
OLZEIPBO 


* DLZLICBL — HLPI COBOL Language interface DLZLICBL 


DLZLIPLI — HLP! PL/t (PLICALLB Interface) 


Extended Description Extended Description Routine Label 


Extended Description 


1. Entry point for each HLPI call for 
an EXEC DLI statement. 


1. This entry point is used only when 
the PL/I application program is using 
anon-PLI PSB. It sets up the para- 
meter list for PL/I initialization. 


3. Address of DL/I program request 
handler is 16 bytes into the COMREG. 


. Address of DL/I program request 
handler is the address of the EJP 


parameter list. 
4. Four bytes in front of the DL/I ve 


program request handler entry 
point is the address of the EIP 
parameter list. 





Figure 2-49.1. HLPI PL/I (PLICALLB Interface) 


PROCESS 


1. Save cailer’s registers. 


ey a 2. Get the communication region address. 


3. Get DL/I program request handler 
address. 


4. Get EIP parameter list. 


nis fg’ _ 5. Get address of the PCB list. 


6. Restore registers 14 through 0. 


7. Restore registers 2 through 11. 


8. Get entry point to PLICALLB. 


9. Restore register 12. 


Routine Label Extended Description 


OUTPUT 





R1 


R15 


Exit to 
PLICALLB 


DLZiIPLI 


Routine 


Label 
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Figure 2-49.2. HLP! PL/I (Language Interface) Figure 2-50.1. FLD Storage Manager — Batch (FLD Storage Acquisition) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Caller Calier 
PST 
RQ 
R13 2 
- 1. Calculate the size of the current FLD 
ace | Ee eee Gre = — 
LOCATION 20 : ‘ . : [stripe] 
a | 2. Get the communications region 
address. 
2. Issue request to free the current FLD 
3. Get the DL/I program request handler area storage. 
address. 
DLZEIPL 4. Get EIP parameter list. 3. If request was unsuccessful, go to Step 
R15 1, Figure 2-50.2. 
p——"*; 5. Get entry point of DLZEIPBO Cd 4.1 t the current FLD area size aa 
= . . Incremen curr 
by 128 bytes. 
5. Issue request for new FLD area storage. 
ixit to : RIS 
DLZzaIPBO 
P| 6. If request was unsuccessful, go to Step 
1, Figure 2-50.2. _ 
7. Set FLD area address in PST. 
scD 
8. HH lyzer ent int. 
| face] == Get DL/I call analyzer entry po lesteuow —] 


9. Restore registers. 





Exit to 
DLZDLA0O 


DLZLIPL! — HLP! PL/I (Language Interface) “DLZLIPLI DLZSTRBO — FLD Storage Manager — Batch (FLD Storage Acquisition) : OLZSTRBO 


Extended Description Routine Label Extended Description . Routine Label Extended Description Routine Label Extended Description Routine Label 


Entry point for each HLPI call 


for and EXEC DLI statement. . DOS/VS FREEVIS issued. 


. DOS/VS GETVIS issued. 
Address of DL/I program request 


handler is 16. bytes into the 
COMREG. 


. Registers are restored as they 
initially were when DL/I program 
request handler first called the call 
analyzer. 


Four bytes in front of the DL/I 
program request handler is the . 
address of the EIP parameter list. 
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Figure 2-50.2, FLD Storage Manager - Batch (Psuedo ABEND Routine) 


INPUT PROCESS OUTPUT 
Caller 
PST 
eco 1 Set up parameter list for message 
: DLZ038! |_PSTWRKO1 | 
— 2. Get address of DL/! message routine. Y PSTWRKDS | 
| PSTWRKDG | 


3. ‘Issue message DLZO381. 


a PST 
4. Set psuedo ABEND indication. ame] 


5. Restore registers. 


Exit to 
DLZPRHBO 


DLZSTRBO — FLD.Storage Manager — Batch (Psuedo ABEND Routine) 


Extended Description Routine Label 


1. FREABEND 
GETABEND 


Extended Description Routine 





rE 





Figure 2-51. Online FLD Storage Manager 
INPUT PROCESS OUTPUT 





Caller 
PST 1, Set addressability to the TCA, CSA, 
PST, and SCD. 
fPsTFLD) = | (Fo 
[srrxo 2. Get address of the current FLD area. = 
= 
3. Issue request to free the current FLD 
area storage. 
eee) v5 TYPE=FREEMAIN TGR 
[psrrto mT a ain 
———", ncrement the current area size 
by 128 bytes, 
5, Issue request for the new FLD area 
storage. 
PST 
=x) DFHSC TYPE=GETMAIN 
6. Set FLD area address in PST. 
sep 
hp ———", 7. Get DL/I call analyzer entry point. 
8. Restore registers. 
Exit to 
DLZDLAOO 
DLZSTROO — Online FLD Storage Manager DLZSTROO 
Extended Description Routine Label Extended Description Routine Label 


DLZSTROO 
START 


8. Registers are restored as they initially 
were when DL/I program request 
handler first called the call 
analyzer. 
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